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Avertissement 


La plupart des phoprennes peuvent être mis 40u4 une 
forme structurée et hiéranchisée. 
Mais, qu'est-ce qu'un programme s4ructuré ? 


C'est un programme présentant une base [ou structure) 
bien définie et Logique. 


Pourquoi structurer un programme ? 

Simplement pour en faciliter £a compréhension et £a 
maintenance. 

Nous voyons donc que, dans La mesure du posséibêe, un 
programme aura intérêt à Etre structuré. 

Voyons maintenant ce qu'est un programme hiéranchisé: 
C'est un programme possédant des niveaux de complexité 
(ou hi£rarchie) différents. 

Pourquoi hiëranchiser un programme ? 

Cela Le rend plus compréhensible et facilite La mainte- 
nance . 


Les objectifs de La hiéranchisation et de La structu- 
nation se necoupent. Tous Les programmes présentés ici 
mx: dans La mesure du possible, structurés et hiéranr- 
chisés. 


1Ls possèdent un module de niveau hiérarchiquement 
élevé : 


« C'est Le MODULE DE COMMANDE 
IL 4e change d'activer Les modu£es principaux du 


programme . 
Au niveau immédiatement inférieur se trouvent : 


© Les MODULES PRINCIPAUX 
Généralement au nombre de trois, ils néatisent : 
Le DEBUT, £e TRAITEMENT et £a FIN du programme. 


Les niveaux inférieurs comprennent des PROCEDURES 
SPECIFIQUES ou des ACTIONS ELEMENTAIRES, souvent so8Li- 
citées. 


En conclusion, Les programmes qui suivent possèdent £a 
structure suivante : 


Commande 





Modules spécifiques de bas niveau 


{ structure A |) 


La Logique concernant Les modules DEBUT et FIN sera 
développée dans Le premier programme. Elle ne sera pas 
reprise par £a suite car elle vanie très peu. A£ons, 
seute £a Logique concernant Le traitement sera dévelop- 
pée. 


Remarque : Dans La suite, quelques programmes, parmi 
Les plus simples, possèdent une structure 
entièrement Linéainre référencée " structure 
B:°!, 


JEUX D'ADRESSE 
OU DE RAPIDITE 
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Attaque aérienne 


PRESENTATION 


Un tank disposé au sol doit détruire des missiles ennemis en vol. Le 
tank peut se déplacer et tirer autant de roquettes anti-missiles qu'il 
le désire. Le jeu s'arrête quand le tank est détruit. 


Ce jeu demande une rapidité certaine et .… une certaine maïtrise de 
soi. 


Combien de temps tiendrez-vous face à l'attaque aérienne ? 


ORGANIGRAMME DU JEU : 


Le programme a £a structure A. 
Le module "DEBUT" réalise : 

. L'affichage de la règle du jeu, 

. L'initialisation des variables du jeu. 
Le jeu commence dès qu'une touche du clavier est actionnée. 
Le module "FIN" commente la partie. 


Dans la suite, tous les programmes de structure À possèdent des 
modules "DEBUT"'" et "FIN! identiques. 
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Le jeu à La structure suivante 





Déplacement 
missile 







Déplacement missile : 

Cette procédure comprend les fonctions : 
. Tirage aléatoire de la position de départ du missile, 
. Tirage aléatoire de la direction du missile, 


. Déplacement du missile sur l'écran. 


Action clavier : 


Tout missile se trouvant sur une ligne verticale issue de la position 
du tank est détruit et le score augmente de 1. 


LE PROGRAMME 


ll se compose en trois pavés : 


Initialisation Présentation du jeu Lignes 1100 à 1540 
Initialisation du jeu Lignes 1700 à 1920 
Jeu Lignes 2000 à 2950 
Le jeu se décompose 
en : 


- Déplacement missile Lignes 2100 à 2240 
- Action joueur Lignes 2600 à 2650 
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Fin de jeu 


Diverses procédures 
de bas niveau : 


e Joueur touché Lignes 2260 à 2300 
e Abri touché Lignes 2320 à 2350 
# Tir joueur Lignes 2700 à 2770 
e Joueur à droite Lignes 2800 à 2850 
e Joueur à gauche Lignes 2900 à 2950 


Lignes 3000 à 3060 


Restitution du curseur et commentaires. 


LES VARIABLES UTILISEES 


A 
AS 
B 
BIS 
B$ 
c 
cc 
co 
FIN 
LI 
NB 
TC 


Position du missile au départ 
Code couleur de la ligne 
Déplacement horizontal du missile 
Indicateur du nouveau missile 
Caractère déplacement vers le haut 
Position écran 

Position du tank 

Position colonne missile 
Indicateur de fin de partie 
Position ligne missile 

Nombre de missiles touchés 


Indicateur de missile touché 
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REX Attaque aerienne 


60SUB 1000 ’Initialisation 
60SUB 2000 ’Deroulesent du jeu 
IF RE=1 THEN 60TD 10 

60SUB 3000 ’Fin du jeu 

END 


LIL LOT CECEC CCE CETTE CCE TETE ET ET 
: REN Initialisation du jeu 


6OSUB 1100 Affichage du menu 
60SUB 1700 ’Initialisation des variables et grille jeu 


RETURN 


L'AIR CETECEEECETEECEN CET CE EEE CECEEEETENNENTE 
: REN Affichage du senu 


PAPER 0 : INK 5 : PRINT CHRS(17) 
REN Titre 


PRINT CHR$(12) 
PRINT CHR$(4);CHRS (27) °N°; 
PRINT CHR$(27);*A ATTAQUE AERIENNE *; CHRS (4) 


REN Objet 


PRINT:PRINT:PRINT: PRINT 

A$="D" ’Code couleur = Bleu 

PRINT'OBJET : *; 

60SUB 1600:PRINT'Jeu d'adresse et de rapidite*; 


REM Job 


PRINT: PRINT: PRINT 

A$="F" ?Code couleur = Cyan 

PRINT" J0B : "; 

60SUB 1600:PRINT'Vous etes attaque par des " 

GOSUB 1600:PRINT* sissiles aeriens reperes par t" 
60SUB 1600:PRINT* Le but du jeu est de les" 

GOSUB 1600:PRINT" detruire . Vous disposez de" 
60SUB 1600:PRINT* roquettes envoyees par la“ 
6OSUB 1600:PRINT" touche SPACE . Les touches" 
6OSUB 1600:PRINT* deplacement vers la droite et* 
GOSUB 1600:PRINT" vers la gauche gerent votre" 
6OSUB 1600:PRINT* position au sol . Vous disposez” 


GOSUB 1800:PRINT" egalesent de 2 abris au 50) ." 
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1410 


3 

1420 
1430 
1440 
1450 
1460 
1470 
1480 


1490 : 


1500 
1510 
1529 
1530 
1540 
1609 
1610 
1620 
163 

1640 
1700 
1710 
1720 
1730 


1735 : 


1740 
1750 
1760 
1770 
1780 
1790 


1800 : 


1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
2000 
2010 
2020 
2030 


2040 : 





6OSUB 1600:PRINT* Cosbien d’ennenis tuerez-vous ?* 
REN Debut 


PRINT: PRINT: PRINT 

A$="C" ’Code couleur = Jaune 

PRINT"DEBUT : *; 

6OSUR 1600:PRINT'Pour cossencer , appuyez sur*; 
GOSUB 1600:PRINT" une touche quelconque .* 
GET A$ ‘Attente d’une action clavier 


RETURN 


REN SHHtN tn tnttintitt tt tsan tt 
RETURN 
REN Couleur d’une ligne 


PRINT CHRS(27) ;"H";CHRS (27) AS; 


RETURN 
REN Initialisation des variables 


B15=1 ’Missile a l’origine 
CC=11 ‘Joueur à gauche de l’ecran 
B$=CHR$(11) ’Resise à hauteur de l'affichage 
CLS ’Effaceaent de l’ecran 
FOR 1=1 TO 4:PLOT 12+1,18,"=":PLOT 2141,18,"=":NEXT 
FOR 1=1 T0 21 
PLOT 8+1,7,"-":PLOT 8+1,21,°-" 
NEXT ] 
FOR I=1 TO 13 
PLOT 9,7+1,"I":PLOT 29,741,"1" # 
NEXT 1 
PLOT 11,20,"2" ’Position joueur 


FOR 1=0 T0 7 
READ DT:POKE46600+2588+1,DT 
NEXT ] 


DATA 12,12,12,12,63,83,63,0 


PLOTI,2, "Score" :PRINT:PRINT:PRINT 


RETURN 
REN H8HHHH03R8NDRNNNGNTRSNNNNTRRNNNITNTTIT 
REN Jeu 


G60SUB 2100 ’Deplacesent aissile 
A$=KEVS:1F A$C)"*" THEN GOSUB 2600 
IF FIN=0 THEN 6070 2020 ELSE RETURN 
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2060 : REN HS ARSRNNRNANN NT RESRRASARENTATT TEE 
: REN Deplacesent aissile 


5 IF BISC>1 THEN G0TD 2160 

2130 :  A=INT(RND{1)83):A=At2#17 ’Hissile au depart 
5 B=INTIRND(1)83)-1 *Deplacesent horizontal 

2150 :  PLOT À,8,"4":L1=10:C0=A+B:BIS=0:RETURN 

2160 : C=SCRN{CO,LI) "Nouvelle position aissile 

#  PLOT CO-B,LI-2,° * 

2180 : IF LI=22 THEN BIS=1:RETURN 
: IF C= 90 THEN G0T0 2260 Joueur touche 
IF C=61 THEN GOTO 2320 ’Abri touche 

2210 : PLOT CO,LI,"#" ’Avence aissile 
t  LI=L1+2:C0=CD4#B:RETURN ‘Prochaine position sissile 


2240 : RETURN 
2250 : REN HÉRRNONERERNERRNNNNANNNTNNETETERTTENNEE 
2260 : REM Joueur touche 


2280 : SHOOT:FIN=1 ’Fin de la balle 


2300 : RETURN 
2310 : REN RARNANNANNNANNNSANANENNENNNNNANINTINNIS 
2320 : REMAbri touche 


2340 *  ZAP:PLOT CO-1,L1," ":PLOT CO,LI," ":RIS=1 
2350 : RETURN 

LUXE CEE CEE EE CEE CENT TETE EEETTUETE) 
2600 : REX Action joueur 


» 
pa 
œ 
= 


2620 : IF A$=" * THEN 6070 2700 ‘Tir joueur 

2630 : IF ASC(A$)=9 THEN G60TO 2800 ’Deplacement vers la droite 
2640 : IF ASC(A$)=8 THEN GOTO 2900 ’Deplacement vers la gauche 
2650 : RETURN 

2660 : REM HHRANEAANNNSNNNNANRNTNNNNNNNTIATT 

2700 : REM Tir joueur 


2720 : FOR 1=8 TO 18 STEP 2 
2730 : IF SCRN(CC,1)=42 THEN TC=1:J=1:1=18:PLOTCC, 9,0" 
2740 : NEXTI 


2750 : IF TC=1 THEN EXPLODE:TC=0:NB=NB+1:BIS=1:PLOTCC, J," ":PRINT 
"NB; 

2760 : IF NB=0 THEN FIN:0 ‘Jeu gagne 

2770 : RETURN 
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LR LRE CECEEE EEE CEE CEEEE CE CECEE EE CE CEE CELE] 


2800 : 
2810 : 


2820 : 
2830 : 
2840 : 


2850 


2900 : 
2910 : 
2920 : 
2930 : 
2940 : 
2950 : 


3000 


3010 : 
3020 : 
3030 : 
3040 : 
3050 : 
3060 : 


REX Deplacesent vers la droite 


IF CC=27 THEN RETURN 

PLOT CC,20," “:CC=CC+2:PLOTCC, 20, "1" 
RETURN 
LUXE LECLERC EE CERCE EEE EEE EEE TETE CEE 
REM Deplacenent vers la gauche 


IF CC=11 THEN RETURN 

PLOT CC,20," ":CC=CC-2:PLOT CC, 20,*1" 
RETURN 
LUXLRE CECELEEEECEEECENEE EEE TETE TETETCETE CEE TS 
REN Fin de la partie 


PRINT CHR$(17) ’Restitution du curseur 
PLOT 0,23," Tu n’es plus de ce sonde !!" 
RETURN 


LUXLRE LUE ECEEEEEEEEEEET EEE EEE EEE CEEEEEE EEE 
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Casse-pipes 


PRESENTATION 


Ce jeu est largement inspiré d'un stand de tir de fête foraine où 
plusieurs pipes se déplacent, et où le joueur doit, grâce à un fusil, 
abattre le plus de pipes possible. 


Pour corser l'affaire, dans ce jeu, les pipes sont fixes et le joueur 
se déplace à vitesse constante. 


Le nombre de balles n'est pas limité mais, à chaque partie gagnée, 
la vitesse de déplacement du tireur sera augmentée. Le but du jeu est 
d'abattre toutes les pipes avant de se trouver dans leur proximité 
immédiates. 


A vos fusils. 
ORGANIGRAMME DU JEU 


Le programme a £a structure A. 

Le déroulement d'une partie consiste en : 
. L'acquisition du tir joueur et tir 
. Le déplacement du joueur 


. La gestion de l'écran 
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L'onganigramme suivant décrit cette structure 






Clavier oui 


actionne 
(mine 


Déplacement 
Joueur 






LE PROGRAMME 


Il se décompose en trois pavés : 


Présentation 
Jeu 


Fin de jeu 


Lignes 1000 à 1540 
Lignes 2000 à 3270 
Module de commande Lignes 2000 à 2060 
Initialisation Lignes 2100 à 2480 
Partie Lignes 3000 à 3270 


Lignes 4000 à 4140 
Commentaires sur la partie et activation 
éventuelle d'une autre partie. 


LES VARIABLES UTILISEES 


AS 
A 


Code couleur de ligne 

Lecture de données (Pipes/Fusil) 
Caractère affiché (Pipe/Brique) 

Caractère d'initialisation nombre de pipes 
Index de boucles 


Nombre de pipes dans la partie 


PAS 


8 mr 


x 
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Pas de progression verticale 
Numéro de partie 

Score joueur 

Nombre de tirs 


Position du joueur sur l'écran. 


REN Casse-Pipes 


60SUB 1000 ‘Presentation du jeu 
60SUB 2000 ’Jeu 

6OSUR 4000 ’Fin du jeu 

IF FIN=0 THEN PRINT CHR$(17):60T0 40 


END 
LUE LEECET EEE CEE TRES TETE TE TENTEUETETE TE 
REN Presentation du jeu 


PAPER O : INK 6 : PRINT CHRS(17) 


REN Titre 


PRINT CHR$(12) 
PRINT CHR$(4);CHR$(27) 3 °N"; 
PRINT CHR$#(27);"A CASSE - PIFES";CHRS(4) 


REN Objet 


PRINT: PRINT: PRINT: PRINT 

A$="D" Code couleur = Bleu 
PRINT'ORJET :"; 

60SUB 1500:PRINT"Jeu de reflexe." 


REN Job 


PRINT: PRINT: PRINT 
A$="F" Code couleur = Cyan 


PRINT"JOB :"; 
GOSUB 1500:PRINT"Le but du jeu est d’abattre" 
GOSUB 1500:PRINT" un aaxiaus de pipes en un teaps' 


GOSUB 1500:PRINT" fixe et dependant du talent du” 
60SUB 1300:PRINT" joueur." 

PRINT 

GOSUB 1500:PRINT" La touche SPACE permet 
GOSUB 1300:PRINT" d'activer un tir.” 
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1290 : 

1300 : REX Debut 

1310 : 

1320 : PRINT:PRINT:PRINT 

1330 : A$="C" ’Code couleur = Jaune 

1340 : © PRINT"DEBUT :"; 

1350 : 60SUB 1500:PRINT"Pour coasencer , appuyez sur” 


1360 : 60SUB 1500:PRINT" une touche quelconque." 
1370 : 

1380 : GET A$ ‘Attente de l'appui sur une touche 

1390 : 

1400 : REM Initialisation des caracteres du jeu 

1410 : 


1420 : PAS=1 ’Pas de la progression 

1430 : FOR 1=0 T0 23 

1435 : .READ A:POKE 46760+1,A 

1440 : NEITI 

1450 DATA'0,0,0,39,63,31,7,0 

1460 DATA 0,0,21,42,21,42,0,0 

1470 DATA 12,12,12,12,63,63,0,0 

1480 : 

1485 : RETURN 

1490 : REM 28RH0RN8NRANNRENNTNNNNTTTINTINTESIR 
1500 : REM Couleur d’une ligne 

1510 : 

1520 : PRINT CHR$(27);"H"3;CHRS(27);A$; 

1530 : 

1540 : RETURN 

1550 : REM tRttttttt tte en etttnnntttttntttttat 
2000 : REM Initialisation et jeu 

2010 : 

2020 : GOSUB 2100 ’Initialisation d’une partie 
2030 : GOSUB 3000 ’Partie 

2040 : 

2050 : RETURN 

2060 : REN DHRRRRNANNRRRNNNSRRRR ARR T SANT ITS 
2100 : REN Initialisation d’une partie 


2110 : 

2120 : REM Titre 

2130 : 

2140 : CLS 

2150 : PRINT CHR$(27);"L";CHR# (27); °C"; 
2160 : PRINT" CASSE - PIPES" 
2170 : PE=PE+#1:PRINT 

2180 : PRINT" Partie No ";PE 
2190 : 


2200 : REN Tirage aleatoires des pipes 
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2220 : FOR 1=1 TO 37 STEP 2 


2230 : B=INT(RND(1)83)+1 

2240 : IF B=3 THEN B$="V" ELSE B$="U":NP=NP+] 
2250 : PLOT 1,4,B$ 

2260 : NEXT 1 

2270 : 

2280 : REN Curseur en position 
2290 : 

2300 : FOR 1=1 T0 20 

2310 : PRINT 

2320 : NEXT ! 

2330 : 

2340 : REN Commentaire Debut de jeu 
2350 : 


2360 : PRINT CHR$(27) 3; "L°;CHRS (27); "A"; 

2370 : PRINT"  Pressez une touche pour cossencer .* 
2380 : GET A$ ’Attente de l’appui sur une touche 
2390 : PRINT CHRS(11);CHRS (14) 


2410 : REN Debut du jeu 


2430 : PRINT" Score : ":SC;" Tir: "1 
2435 : PRINT CHR$(11); 

2440 : X=1:Y=20:PLOT 1,20,°N" 

2450 : REN Joueur au depart 


2470 : RETURN 
ER LIR CECI CETPETEE CEE C CECI TETE EEE) 
3000 : REN Partie 


3020 : REPEAT 

3030 : A#=KEYS 

3040 : IF A$C)"* THEN GOSUB 3100 ‘Action joueur 
3050 : 6OSUB 3200 ’Deplacesent joueur 

3060 : UNTIL YCPAS+4 DR SC=NP 


3070 : 

3080 : RETURN 

3090 : REN ARS NNUNNNNRARTRATRTANANNSTRATNRTRATTR 

3100 : REM Action joueur 

3110 : 

3120 : ZAP 

3130 : IF SCRN(X,4)=85 THEN SC=SC+1:PLOT 1,4," ":SHOOT 
3140 : T=7#1 


3150 : PRINT" Score : ";5C;" Tir s "51 
3155 : PRINT CHR$(I1); 
3169 : 


3170 : RETURN 
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3180 
3200 


3210 : 
3220 : 
3230 : 
3240 : 
3250 : 
3260 : 
3270 : 


4000 


4050 


4055 : 
4060 : 
4070 : 
4080 : 
4090 : 
4100 : 


4110 


4120 : 
4130 : 
4140 : 


LU CEE EEE EEE CEE CECEC TEE CEE CEE TEE CEE CE TT 
REM Deplacesent joueur 


PLOT X,Y," " 
IF X=37 THEN VeY-PAS:1=1 ELSE X=1+2 
PLOT X,Y,"W" 


RETURN 
LIL CEE EEE LE CE EE CEE EEE EEE EEE EE LELEEE EEE ET! 


: REN Fin du jeu 
4010 : 
4020 : 
4030 : 
4035 : 
4040 : 
4045 : 


CLS 

IF SC=NP THEN G0TO 4050 

JF PAS>1 THEN PAS=PAS-1 

PRINT"vous n’etes pas en forme dirait-on!!" 
6070 4060 

PRINT'pas aal,aais peut faire aieux." 
PAS=PAS+! 

PRINT:PRINT"Score : "SC"  Tirs : “3:71; 
PRINT" Pipes : ";NP 
PRINT:PRINT:PRINT CHR$(17) 

INPUT'une autre partie ";R$ 

IF R$="0" THEN FIN=0 ELSE FIN=1 
NP=0:6C=0:T=0 


RETURN 
LUXE CEE DELLE CE CEE ETAT CET EEE EETEEEEEEES 
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Le piéton courageux 


PRESENTATION 


Vous croyez peut-être qu'il est simple de traverser la route ! Mais, 
si cette route comporte 4 voies, et si les voitures cherchent à vous 
écraser, penserez-vous la même chose ? 


Ce jeu vous propose de prendre le rôle d'un piéton courageux qui 
n'hésite pas à traverser la route le plus souvent possible. Le temps est 
limité à 30 secondes. Mais la partie peut aussi s'interrompre avant 
les 30 secondes imparties.… si vous vous faites écraser. Bon courage ! 


ORGANIGRAMME DU JEU 


Le programme a La structure A. 


Le jeu consiste simplement à déplacer piéton et voitures sur l'écran. 


IL a La structure suivante 
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Clavier NQÇ out 
actionne 


? 





Déplacement 
voiture 





LE PROGRAMME 
Il se décompose en trois pavés : 


Présentation et 


Initialisation Lignes 1000 à 1950 
Module de commande Lignes 1000 à 1080 
Présentation Lignes 1100 à 1550 
Déf. voiture & piéton Lignes 1600 à 1680 
Déf. ct et var. Lignes 1700 à 1780 
Dessin écran Lignes 1800 à 1950 

Jeu Lignes 2000 à 2610 
Module de commande Lignes 2000 à 1070 
Déplac. piéton cde Lignes 2100 à 2170 
Déplac. haut Lignes 2200 à 2290 
Déplac. bas Lignes 2300 à 2370 
Déplac. voiture Lignes 2400 à 2610 

Fin de jeu Lignes 3000 à 3060 
Message de fin de partie. 

LES VARIABLES UTILISEES 

A Donnée de redéfinition de caractère, puis at- 


tente clavier 








A$ 
FIN 
1,J 
PJ 


vo 


1000 : 
1010 

1020 : 
1030 : 
1040 : 
1050 : 
1060 : 
1070 

1080 : 
1100 
1110 
1120 : 
1130 : 
1140 : 
1150 : 
1160 : 
1170 

1180 

1190 : 
1200 : 
1210 : 
1230 : 





BOITE A OUTILS POUR ORIC 1 ET ATMOS / 25 


Code couleur de ligne 

Indicateur de fin de partie 

Index de boucle 

Position du joueur 

Tableau indiquant la position des voitures 
N° de voitures déplacées (1 à 4) 


Nombre de traversées 


REN Le pieton courageux 


60SUB 1000 ’Initialisation 
60SUB 2000 ? Jeu 
G60SUB 3000 ’Fin du jeu 


END 
LISE CE CE LEE COTE CEE COTE CCE CET EEE TETE) 
REN Initialisation 


60SUB 1100 Presentation 

60SUB 1600 ’Definition des caracteres 

60SUB 1700 "Definition des constantes et variables 
60SUB 1800 ’Dessin de la grille du jeu 


RETURN 
LIL CECELEE EE TE PTE EEE ET EE EEE EEE 


: REN Presentation du jeu 


PAPER © :INK 5 
REM Titre 
PRINT CHR$(12) 
PRINT CHR$(4);CHRS(27);°N"; 
PRINT CHR$(27);"A LE PIETON COURAGEUX" ; CHR$ (4) 
REM Objet 
PRINT:PRINT:PRINT:PRINT 
PRINT"OBJET :"; 
A$="D" ’Code couleur = Bleu 
60SUB 1500:PRINT"Jeu d’adresse." 
REN Job 





1240 : PRINT:PRINT:PRINT 


1250 : A$="F" ‘Code couleur = Cyan 

1260 : PRINT'J0B :*; 

1270 : GOSUB 1500:PRINT"Le but du jeu est de” 

1280 : 60SUB 1500:PRINT" traverser la route le plus de 
1290 : 6OSUB 1500:PRINT" fois possible en se servant des" 
, 

1300 : GOSUB 1500:PRINT" des touches-fleches vers le bas” 
, 

1310 : GOSUB 1500:PRINT" et vers Le haut." 

1320 : 60SUB 15300:PRINT" Le teaps est lisite * 

1330 ; 60SUB 1500:PRINT" a 30 secondes ." 

1340 : REM Debut 


1350 : PRINT:PRINT:PRINT 

1360 : A$="C" ’Code couleur = Jaune 

1370 : PRINT*DEBUT :°"; 

1380 : 60SUB 1500:PRINT"Pour cossencer, appuyez sur” 
1390 : GOSUB 1500:PBINT" une touche quelconque ." 
1395 : PRINT CHR$(17) ‘Disparition du curseur 

1400 : GET A$ ‘Attente d’une action clavier 

1410 :  CLS:PRINT'SCORE":RETURN 

1420 : 

1430 : REN SORSNRRARSRARTNNNTTNTATTAANNNTIINTITR 
1500 : REN Couleur d’une ligne 

1510 : 

1320 : PRINT CHR$(27);"H"3;CHRS (27); A8; 

1530 : 

1540 : RETURN 

1590 2 REN SRNNNNRRSNNNANNNANNSNNNTTANTIANIATIE 
1600 : REN Definition des caracteres 

1610 : 

1620 : FOR 1=0 T0 15 

1630 : READ A:POKE 46600+1,A 

1840 : NEXT 1 

1650 DATA 0,28,28,8,28,8,8,20,0,0,12,63,83,18,0,0 

1660 : 

1670 : RETURN 

1680 : REN 202820028800 A ARR A RTS ATNTTTART NT 
1700 : REM Definition des constantes et variables du jeu 
1710 : 

1720 :  VO=1 ’No de voie pour voiture 

1730 3 T(1)=9:7(2)=9 ’Voies 1 et 2 voitures à droite 
1740: T{B)21:T(4)=1 Voies 3 et 4 voitures à gauche 
1730 : PJ=0 ’Position joueur en bas 

1760 

1770 : RETURN 
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EL RER 2RE L'ECE CEE EE CE EX EEE EE EEE EEE CECEE EEE EE EEE) 
1800 : REN Dessin de la grille du jeu 

1810 : 

1820 : FOR I=1 105 


1830 : FOR J=1 T0 19 


1840 : PLOT 10+],9+241,-" 
1850:  NEXTJ 
1860 3  MEXT I 


1870 : FOR I=1 TO 19 

1880 : PLOT 1041,15,"=" 

1890 : NEXT I 

1900 : PLOT 28,12,"B":PLOT 28,14,"8" ’Positionnesent des voitures 
1910 : PLOT 12,1b,"B":PLOT 12,18,°B" 

1920 : PLOT 20,20,"A" ’Positionnesent du bonhonse 

1930 : 

1940 : RETURN 

1950 : REM 2H840000tttintantt ant enter ttt tt 

2000 : REN Deroulesent du jeu 

2010 : 

2020 : A$=KEYS:1F A$C>"* THEN GOSUB 2100 ’Jeu du joueur 

2030 : GOSUB 2400 ’Avancesent voitures 

2040 : IF FIN=0 THEN 6070 2020 ELSE RETURN 

2050 
2060 : RETURN 

2070 : REN 2ENNANNNANANANNNTNANANNNANNNTSNNSETSTNS 
2100 : REX Deplacesent du pieton 

2110 : 

2120 : 

2130 : IF ASC(A$)=11 THEN GOTO 2200 

2140 : IF ASC(A$)=10 THEN GOTO 2300 

2150 : 

2160 : RETURN 

2170 : REN ##84t8ttttnttttttntntgtatatitttiitttntt 
2200 : REN Deplacesent vers le haut 

2210 : 


2220 : PJ=PJ#1 

2230 : IF SCRNI20,20-28PJ) (32 THEN FIN=1 ‘Collision 
2240 : IF PJ(35 THEN G60T0 2270 

2250 : PLOT 20,12," ":PJ=0:SC=5C#1 

2260 : PLOT20,20,"A":2AP:X=X#1:PRINT" "3 X:RETURN 
2270 :  PLOT 20,20-24PJ, "A":PLOT20,22-PJ42," ":RETURN 
2280 : 
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2290 : REN GRRISNNNRARNAATARANANATIATTIAET 
2300 : REN Deplacesent vers le bas 


PJ=PJ-1 

IF SCRN(20,20-PJ42)€>32 THEN FIN=1 "Collision 
IF PJ=0 THEN PJ=1:RETURN 

IF PJ=-1 THEN PJ=0 

PLOT 20,20-PJ42,"A":PLOT20,18-PJ82," ":RETURN 


OR CCEE CCE EE ETC EEE TENTE EEE CEE CEE TCEE 
: REN Deplacesent voiture 


TESTE+{:1F TE=170 THEN FIN=1 ’Ecoulement du tesps isparti 
IF VO=1 OR VO=2 THEN 6070 2520 ’Deplacemæent vers la gauche 
REN Deplacement vers la droite 

IF T(VO)C)9 THEN G0TD 2480 

PLOT 28,10+21V0," ":PLOT 12,10+21V0, *B":T(VOI=1 

VO=INT (RND{1)84)+1 

RETURN : 

JF T(VO)=4 AND SCRN(20,10+24V0)=65 THEN FIN=1 ‘Collision 
PLOT 10+T(Y0)42,10+V042," *:T(VO)=T(VO)+] 
PLOTL0+T (VO) #2,10+V042,"B" 

VO=INT{RND (1) #4) +1 

RETURN 

REN Deplacesent vers là gauche 

IF T(VO)C>1 THEN 6070 2569 

PLOT 12,10+28V0," ":T(VO)=9:PLOT 28, 10+28V0, *B" 

VO=INT {RND(1) #4) +1:RETURN 

IF T(VO)=6 AND SCRH{20,10+28V0)=85 THEN FIN=1 ‘Collision 
PLOT10+T (VO) #2,10+V042," ":T1V0)=T (VO) -1 
PLOT104+T (VO) #2, 10#V042, *B" 

VO=INT(RND(1) #4)+1:RETURN 


REM #tt448t4t8ttttnttatnttnttstatatttattitt 
3000 : REX Fin de la partie 


EXPLODE 

PLOT 0,22," * ’Code couleur blanche 
PLOT 11,22," That’s all folks !* 

PRINT CHR$(17) ’Restitution du curseur 
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Réflexe 


PRESENTATION 


Ce jeu est à conseiller à toute personne qui a du mal à mémoriser 
la disposition des touches sur le clavier. En effet, ORIC affiche une 
lettre sur l'écran, et vous devez frapper cette lettre le plus rapidement 
possible. Avec un peu de pratique, vous arriverez à connaître le clavier 
ou, à devenir fou. 


ORGANIGRAMME DU JEU : 


Le programme a £a structure A. 


Le jeu est très simple. [l suffit de tirer aléatoirement une lettre du 
clavier, de l'afficher, et d'attendre la réponse du joueur. 


L'onganigramme du jeu est donc Le suivant 





Tirage aleatoire 
dune jettre 









Affichage 
de \a lettre 














Attente de la 
Frappe de la lettre 
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LE PROGRAMME 
H se décompose en trois pavés : 


Présentation du feu Lignes 1000 à 1450 
Jeu Lignes 2000 à 2200 


Fin du jeu Lignes 3000 à 3100 
Commentaires sur le jeu et activation éven- 


tuelle d'une autre partie. 
REX Reflexe 


6OSUB 1000 Presentation 

GOSUB 2000 ’Jeu 

SOSUB 3000 Fin du jeu 

IF R$="0" THEN 60T0 40 Nouvelle partie 


PRINT CHR$(17):END 
LIRE CELL COLE EC EC CEE CRETE EEE TE ECC TER CEE ES 
: REN Presentation du jeu 


INK 5 : PAPER 0 : PRINT CHR$(17) 
REN Titre 


PRINT CHR$(12) 
PRINT CHR$(4);CHR#(27)3 "N°; 
PRINT CHR$(27);"A REFLEXE * ; CHRS$ (4) 


REX Objet 


PRINT:PRINT:PRINT: PRINT 

A$="D" ’Code couleur = Bleu 
PRINT"OBJET :°; 

6OSUB 1400:PRINT'Jeu de rapidite.". 


REN Job 


PRINT:PRINT:PRINT: PRINT 

A$="F" ’Code couleur = Cyan 

PRINT" JOB : "; 

60SUB 1400:PRINT'Une lettre va apparaitre sur'; 

GOSUB 1400:PRINT" l’ecran . Appuyez sur la touche" 


6OSUB 1400:PRINT" correspondante en un sinisus" 
60SUB 1400:PRINT" de teaps." 


REX Debut 
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1270 : PRINT: PRINT: PRINT: PRINT 

1280 : M&"C" "Code couleur = Jaune 

1290 : PRINT"DEBUT : *; 

1300 : GSUB 1400:PRINT"Pour cossencer , appuyez sur‘; 
1310 : GDSUB 1400:PRINT" une touche quelconque." 
1320 : GET A$ ’Attente de l'appui sur une touche 

1330 : 

1340 : RETURN 

RSC TRE CECE CEEEE CL ECCEE CEE CEE CEETE LEE EEE EEE 

1409 : REN Couleur d’une ligne 

1410 : 

1420 : PRINT CHR$(27)3"H"3;CHRS(27) 3 AS; 

1430 : 

1440 : RETURN 

1450 : REN HONOR NNNTENNNRRENNNNNRENNNATTANTETTTe 

2000 + REN Jeu 

2010 : 

2020 : REN Tirage aleatoire d’une lettre du clavier 
2030 : 

2040 : A=INTIRND (13426) +65 


REN Affichage de la lettre tire 


CLS 
FOR 1=1 T0 11 
PRINT 

NEXT ] 

PRINT CHR$(4) ;CHRS (27) ; "J" 3 CHR$ (27); "A 
CHRS (A); 
2120 : PRINT CHR$(4) 
2130 : 
2140 : REM Attente de l’appui sur la lettre affichee 
2150 : 
2160 : B$=KEYS$ 
2170 : S2T+1:1F B$=°" THEN GOTO 2160 
2180 : 
2190 : RETURN 
2200 : REN DRTORERRRESSNNNARRANRNSAENINNNIINTTETS 
3000 : REN Fin du jeu , Affichage des resultats 
3010 : 
3020 : CLS 
3030 : IF BSC)CHRS(A) THEN PRINT"I1 faudra acheter des lunettes! ! 
,. 


3040 :  PRINT:PRINT 
PRINT" Teaps de reflexion :°;T 
PRINT: PRINT: PRINT 
6DSUB 1400: INPUT‘ Un autre essai (D/N) “;R$:T=0 


3090 : RETURN 
LACUR 2 LCCECOEEE CECCEEECEE EE CEE EEE CCE CE TETE CT 





JEUX DE HASARD 
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Bataille navale 


PRESENTATION 


Le célèbre jeu de bataille navale est repris par ce programme. Votre 
adversaire est ORIC. La grille du jeu fait 9 cases de côté. 


Vous disposez de 6 navires occupant chacun une case sur la grille. 
Pour découvrir les navires ennemis, vous disposez d'un nombre illimité 
de torpilles qui sont envoyées à tour de rôle. 


ORGANIGRAMME DU JEU 


Le programme a £a structure A. 


Le jeu est initialisé, puis la partie est engagée. 
A tour de rôle, vous, puis ORIC tentez de détruire les navires enne- 


mis. La partie se termine quand tous les navires d'un joueur sont 
coulés. 


LE PROGRAMME 


BOITE A OUTILS POUR ORIC 1 ET ATMOS / 35 








Il se décompose en trois pavés : 


Présentation 
Jeu 


Fin de partie 


Lignes 1000 à 1550 


Lignes 2000 à 3160 

Module de commande Lignes 2000 à 2060 
Initialisation Lignes 2100 à 2530 
Partie Lignes 2100 à 3160 


Lignes 4000 à 4160 


LES VARIABLES UTILISEES 


A,B 
A$ 

Ci, CO 

1 

FIN 

0, ESSAI 
x, Y 


Codes entrés par le joueur, puis jeu du joueur 
Code couleur de ligne 

Navires joueur coulés et ORIC coulés 

Index de boucles 

Indicateur de fin de partie 

Tableaux de jeu 


Coordonnées sur tableau 
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REN Bataille Navale 


6OSUB 1000 ‘Presentation du jeu 
G60SUB 2000 ’Jeu 

60SUB 4000 ’Fin du jeu 

IF BIS=1 THEN 60TD 40 


END 
REN DHRARA NN RRN ARR ANTAT NRA TNTNRNRNTNIISER 
1000 : REX Presentation du jeu 
1010 
1020 : PAPER O : INK 5 : PRINT CHR$(17) 
1030 : 
1040 : REN Titre 
1050 : 
1060 : PRINT CHR$(12) 
1070 : PRINT CHR${4):CHR$ (27); °N"; 
1080 PRINT CHR$(27); "A BATAILLE NAVALE":CHRS# (4) 
1090 : 
1100 : REM Objet 
1110 : 
1120 : PRINT:PRINT:PRINT 
1130 : A$="D" ’Code couleur = Bleu 
1140 : PRINT*OBJET : *; 
1150 : 6OSUB 1500:PRINT'Jeu de hasard." 
1160 : 
1170 : REM Job 
1180 : 
1190 : PRINT:PRINT 
1200 : A$="F" ’Code couleur = Cyan 
1210 : PRINT'JOB : "; 
1220 : 60SUB 1500:PRINT'Le but du jeu est de” 
1230 : GOSUB 1500:PRINT" decouvrir des navires ennesis" 
1240 : 6OSUB 1500:PRINT" se trouvant sur une grille " 


1250 : 6OSUB 1500:PRINT" 949 avant que l'enneni ne" 
1260 : GOSUB 1500:PRINT" decouvre les votres." 

1270 : GOSUB 1500:PRINT" Vous disposez tous deux de 6" 
1280 : 60SUB 1500:PRINT" navires occupant chacun une" 
1290 : 6OSUB 1500: PRINT" place sur la grille." 

1300 : 6OSUB 1500:PRINT" Pour decouvrir les navires * 
1319 : GOSUB 1500: PRINT" enneais, vous disposez de " 
1320 : GOSUR 1500:PRINT" torpilles que vous pouvez" 
1330 : GOSUB 1500:PRINT* lancer sur une case quelconque" 
1340 : GOSUR 1500:PRINT" de la grille." 

1350 : 
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1360 : REN Debut 

1370 : 

1380 : PRINT:PRINT 

1390 : A$="C" ’Code couleur = Jaune 

1400 : PRINT'DEBUT : "; 

1410 : 60SUB 1500:PRINT"Pour cossencer , appuyez Sur°; 
1420 : 60SUB 1300:PRINT* une touche quelconque." 
1430 : 

1440 : GET A$ ’Attente de l’appui sur une touche 
1445 : DIN 0(9,9),ESSAI(9,9) *Tableaux de jeu 
1450 : 

1460 : RETURN . 

CYR 2 REC EE CEE CEE EE EEE EEE CE CEE EEE EEE ETS 
1500 : REN Couleur d’une ligne 

1510 : 

1520 : PRINT CHRS(27);°H";CHRS (27); A$; 

1330 : 

1540 : RETURN 

1550 : REN ANA SR DNS NRRRn ARR TARN RTT TETE 
2000 : REN Jeu 

2010 : 

2020 : GO0SUB 2100 ’Initialisation de la partie 
2030 : GOSUB 2600 "Partie 

2040 : 

2050 : RETURN 

2060 : REN HRRRRRRRRRRANTANNRRANANTTTRNATATATTTET 
2100 : REM Initialisation de la partie 

2110 : 

2120 : REM Avertissesent au joueur 

2130 : 

2140: CLS : IK6 

2150 : PRINT CHR$(27);°L°";CHR$ (27); °C"; 

‘2160 : PRINT" INITIALISATION DE LA PARTIE" 
2170 3: PRANT:PRINT:PRINT:PRINT:PRINT 

2180 : PRINT"  Dessinez une grille 949 puis" 

2190 :  PRINT'placez sur cette grille 6 bateaux de ” 
2200 : PRINT'disension { case." 

2210 :  PRINT:PRINT:PRINT 

2220 : PRINT"  Tappez ensuite sur une touche" 
2230 : PRINT"quelconque pour coasencer à jouer." 


2240 : 

2250 : REN Initialisation ORIC 
2260 : 

2210 : FOR I=1 106 

2280 : X=INTIRND{1)49)+#1 
2290 V=INTRND(1)49)+1 


2309 : IF OUX,Y)=0 THEN OUX,Y)=1 ELSE 1=1-1 
t NEXTI 
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2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 


2420 : 


2430 
2440 
2450 
2490 
2500 
2510 
2520 
2530 
2600 
2610 
2620 
2630 
2640 
2650 
2660 


REN Attente de l’appui sur une touche 


GET A$ 

cs 

PRINT CHRS (27); "L";CHRS(27);"B"; 
PRINT" BATAILLE NAVALE 


PRINT:PRINT:PRINT:PRINT:PRINT: PRINT: PRINT 
PLOT 10,6, "Votre grille de tir" 


PRINT" ABCDEFGH I J':PRINT 
FOR 1=1 T0 9 

PRINT * “3 CHRS(1+48) 
NEXT I! 


PRINT:PRINT:PRINT CHR$(17) 


RETURN 
REN tttttitannittnnatenntntnitnattnanntttnt 
REN La partie est engagee 


6OSUB 2700 ‘Jeu du joueur” 

IF FIN THEN RETURN 

GOSUB 3000 Jeu d’ORIC 

IF FIN THEN RETURN ELSE GOTO 2800 


2670 : REN HHHAN NN SNnN tt tnt tatTttttatttt 
2700 : REM Jeu du joueur 


2710 
2720 
2730 
2740 
2750 
2760 


2764 : 





INPUT'Entrez votre jeu";J$ 

ASASCILEFT#1J$, 1))-64 

B=ASC (RIGHTS (J$,1))-48 

IF O(B,A)=0 THEN GOSUB 2800 ’A l’eau 

IF O(B,A)<1 THEN G0SUB 2900 ’Coule 

WAIT 260 

PRINT CHR$(11);CHRS (14): CHR$ (14); CHRS (11) ;CHRS (11); 


RETURN 
REN dittéttitntnntantnnntttntastnnnttttttnt 
REM Joueur à l’eau 


PRINT" À l’eau !!" 
PLOT 24A+8,B+9, *0" 


RETURN 
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2860 : REN SRRASRRDRNRSERARSNNANTAANNTIEATATERTTT 


2900 : REM Joueur a coule ORIC 


2910 


2920 : 


2930 


2935 : 


2940 
2950 


2960 : 


2970 


3000 : 


3010 


3020 : 


3030 


3040 : 


3050 
3080 
3070 
3080 


3090 : 
3100 : 


3105 : 
3110 : 
3120 : 


3130 : 


3140 : 


3150 : 


3160 


4000 : 


4010 
4020 


4030 : 
4040 : 


4050 


4060 : 


4070 
4080 
4090 


4100 : 
4110 : 
4120 : 
4130 : 
4140 : 
4150 : 


4160 


PRINT" Coule.! Bien joue! !" 

PLOT 21A+8,B+9,"1" 

0(B,A)=2 ’Interdiction de rejouer le meme coup 
CI=CJ+1:1F CJ=6 THEN FIN=1 


RETURN 
DIX RELCEE CECECEE EE CEE CEREOR EEE EE EEE EEE EEE EE 
REN Jeu d’ORIC 


X=INT(RND (149) +1 
Y=INTIRND(1)49)+1 

IF ESSAI (X,Y)()0 THEN 60TO 3000 
ESSAL(X,V}=1 
AS=CHRS (Y+64) +CHR$ (X+48) 

PRINT'Je joue en ";A$ 

PRINT'Entrez le resultat du tir :" 
INPUT" 1=A l’eau  2=Coule ";A 

IF A=2 THEN CO=C0+! 

IF CO=6 THEN FIN=1 

PRINT CHR$(11);CHRS(11) ;CHRS(1 1); CHRS (14) 
PRINT CHR$(14) 

PRINT CHRS(14);CHR$(11); 


RETURN 
LUE LEE LEE EEE ETES T EE CET EE EEE 
REN Fin de la partie 


CLS 
IF CO=6 THEN PRINT"Pas assez de tactique." 
IF CJ=6 THEN PRINT"Pas aal.11 fallait le faire.” 
IF CJ=6 THEN PRINT"J'espere que vous n'avez pas triche." 
PRINT: PRINT 
INPUT" Une autre partie (D/N) ";R$ 
IF R$="0" THEN BIS=1:PRINT CHR$(17) ELSE BIS=0 
C0=0:CJ=0:FIN=0 
FOR 1=1 10 9 

FOR J=1 10 9 

041,9)=0 

NEXT J 

NEXT 1 


RETURN 
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Jack-pot 


PRESENTATION 


Le célèbre jeu de café est repris, de façon simplifiée : trois roulet- 
tes représentant des fruits (poire, banane, pomme, cerise) sont animées 
d'un mouvement de rotation. Lorsqu'elles s'arrêtent : 


. les trois roulettes représentent des fruits différents : 
la mise est perdue 


. deux des roulettes représentent le même fruit : 
DOUBLE : vous gagnez 10 $ 


. les trois roulettes indiquent le même fruit : 
JACK POT : vous gagnez 30 $. 


Ce jeu, très simple, peut devenir passionnant, surtout si vous êtes dans 
un jour de chance. 


ORGANIGRAMME DU JEU 


Le programme a La structure A. 


Une grande partie du jeu est consacrée au tirage aléatoire des fruits 
et à leur affichage. Ensuite, il suffit de tester les trois configurations 
possibles : coup pour rien, DOUBLE, JACK POT. 


L'organigramme page suivante représente les différentes parties du 
jeu 
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Affichage et 
information 
av joueur 


Tirage des 
roulettes 


Coup 
pour rien 










Commentaires 


Attente d'une 
action clavier 
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LE PROGRAMME 


Il se décompose en trois pavés : 


Présentation et 
initiatisation 


Jeu 


Fin de partie 


Lignes 1000 à 1960 
Moduie de commande Lignes 1000 à 1060 


Présentation Lignes 1100 à 1650 
Initialisation Lignes 1700 à 1960 
Lignes 2000 à 3160 

Commentaires Lignes 2000 à 2360 
Tirage aléatoire Lignes 2370 à 2700 
Résultats Lignes 2700 à 3160 


Lignes 4000 à 4090 
Commentaires sur la partie 
Activation éventuelle d'une autre partie. 


LES VARIABLES UTILISEES 


A 
A$ 
C1, C2, C3 
FIN 


INFOS 


T$ 


Donnée de définition des caractères graphiques 
Code couleur de ligne 

Fruit sur 1ère, 2ème et 3ème roulette 

Fruit à afficher 

Code de fin de partie 

Index de boucle 

Commentaires sur un coup 

Somme disponible 


Tableau des fruits 
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END 


10 :  REN Jack Pot 

20 : 

30 : 60SUB 1000 Presentation du jeu et Initialisation 
40: 60SUB 2000 Jack Pot 

50 : 60SUB 4000 ’Fin de La partie 

60 : IF R$="0" THEN 6070 40 

65 : PRINT CHR$(17) 

90 : REM HRSHNENIANANAT TEEN TITTTA TES 

1000 : REN Presentation du jeu et Initialisation 

1010 : 

1020 : GOSUB 1100 ‘Presentation du jeu 

1030 : G60SUB 1700 ’Initialisation 

1040 : 

1050 : RETURN 

1060 : REN ttttittittintnnttantstianttntnttantentt 

1100 : REM Presentation du jeu 

1110 : 

1120 : PAPER O : INK 5 : PRINT CHR$(17) 

1130 : 

1140 : REM Titre 

1150 : 

1160 : PRINT CHR$(12) 

1170 : PRINT CHR$(4);CHR$ (27); "N°; 

1180 : PRINT CHR$(27);"A JACK  FOT";CHRS (4) 
1190 : 

1200 : REN Objet 

1210 : 

1220 : PRINT:PRINT:PRINT: PRINT 

1230 : A$="D" ’Code couleur = Bleu 

1240 : PRINT"OBJET : * 

1250 : 6OSUB 1600:PRINT"Jeu de hasard." 

1260 : 

1270 : REM Job 

1280 : 

1290 : PRINT:PRINT: PRINT 

1300 : A$="F" ’Code couleur = Cyan 

1319 : PRINT'Job :"; 

1320 : 6OSUR 1600:PRINT"Le jeu consiste a lancer 3" 
1330 : GOSUB 1600:PRINT" roulettes cosportant chacune: * 
1335 : PRINT 

1340 : GOSUB 1600:PRINT" - Une poire" 

1350 : 60SUB 1600:PRINT" - Une banane" 
1360 : GOSUB 1600: PRINT" - Une posse" 

1370 : 60SUB 1600:PRINT" - Une cerise" 
1375 : PRINT 

1380 : GOSUB 1600:PRINT" et a obtenir les aenes fruits" 
1390 : 60SUB 1600:PRINT" sur chaque roulette à l'arret." 





44 








1400 : 

1410 : REM Debut 

1420 : 

1430 : PRINT:PRINT:PRINT 

1440 : A$="C" ’Code couleur = Jaune 

1450 : PRINT"DEBUT :*; 

1460 : 6OSUB 1600:PRINT'Pour cossencer, appuyez sur* 


1470 : GOSUB 1600:PRINT" une touche quelconque." 
1480 : 

1490 : GET A$ ’Attente de l'appui sur une touche 

1500 : 

1510 : RETURN 


1520 : REN ANA NRRANRNNANTANNTAATTINNITAAIIIE 
1609 : REM Couleur d’une ligne 

1610 : 

1620 : PRINT CHR$(27);"H"3;CHRS (27) ;A$; 

1630 : 

1640 : RETURN 

1650 : REM SÉRIE NNA NET ANNTNATNANITITRIIIES 
1700 : REM Initialisation des caracteres du jeu 
1710 : 

1720 : FOR I=0 TO 31 

1730 : READ A:POKE 46360+1,A 

1740 : NEXT I 

1750 : 

1760 : RETURN 

1770 : REM tattt8ttatttstittitattnattnattttatttttt 
1800 : REN Banane 


1810 : 

1820 DATA 0,0,0,0,51,83,30,0 
1830 : 

1840 : REN Poire 

1850 : 

1860 DATA 4,4,12,30,30,63,63,30 
1870 : 

1880 : REN Posne 

1890 : 

1900 DATA 4,4,30,63,63,63,30,0 
1910 : 

1920 : REN Cerise 

1930 : 


1940 DATA 0,1,2,4,24,60, 60,24 
1950 : 
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1960 : REN SHIDIRINSENTSNNANRRTENNRNNTANNNAATATTEÉ 
2000 : REM Jack Pot 

2010 : 

2020 : INK 6 : CLS : S=100 

2030 : 

2040 : REM Titre 

2050 : 

2060 : PRINT CHR$(27) ;"H";CHR$ (27); "D"; 
2070 : PRINT" JACK POI" 
2080 : 

2090 : REM Configuration Initiale 

2100 : 

2110 : PLOT 10,12," ÿ 
2120 : . PLOT 10,13," 1 
2130 : PLOT 10,14," 1° 
2140 : PLOT 10,15,": à" 
2150 : PLOT 10,18, "=. : 


2160 : T${1)=2CHRS (27) +"H"4CHRS (27) +"C4" 
2170 : T$(2)2CHR$ (27) +"H"4CHR$ (27) +" B$" 


2189 : T$13)=CHR$127)+"H"4CHR$ (27) +" AL" 
2190 : «  T$(4)=CHR$(27)+"H"4+CHRS127)+" A4" 
2195 : E$=CHRS(27)+"H"4CHR$127)+"F" 
2200 : 

2210 : FOR 1=1 TO 13 

220 : PRINT 

2230 : NEXT ! 

2249 : PRINT" 17801); "3T$02);" "iTS(S)SES 
2250 : 

2260 : REN Information au joueur 

2270 : 


2280 : PRINT: PRINT: PRINT: PRINT: PRINT 
2290 : A$="C":GOSUR 1600; 


2300 : PRINT" Pour jouer une nouvelle fois," 

2310 : GOSUR 1600: PRINT" appuyez sur use touche quelconque." 
2313 : PRINT 

2314 : GOSUR 1600:PRINT" Pour arreter appuyez sur RETURN." 


: FOR 1=1 10 9 
PRINT CHR$(11); 
; NEXT : 





2370 : REM Jeu 


2390 : GET A$ 
: IF ASC(A$)=13 THEN FIN=1 


2410 : REN lere case 





2750 : 


2760 


2780 


2790 : 


2795 


2800 : 


2804 
2805 


2810 : 


2811 


2812 : 
2813 : 
2820 : 
2830 : 





FÜR 1=1 T0 20 
PRINT CHR$(11); 
ESINT(RND(1)44)#1 
PRINT" 1'#T${E) 
WAIT 10 

NEXT 1 

F#=T$(E):C1=E 


REN 2ese case 


FOR 11 TD 20 
PRINT CHRS(11); 
E=INTIRND(1)84)#1 
PRINT L'4FS4" 4TS(E) 


F$=F$+"  "4T$(E):C2=E 
REN Jene case 


FOR 11 T0 20 
PRINT CHRS111); 
E=INTURND(1)44)+1 
PRINT" LAPS "ATS(E) 
MAIT 10 

NENT 1 

CIE 


REN Fin du tirage aleatoire 
REM Coaptabilisation des gains 


IF C1{)C2 AND C1>C3 THEN D=1 
IF C1=C2 OR C1=C3 OR C2=C3 THEN D=2 
IF C1=C2 AND C1=C3 THEN D=3 


ON D GOSUB 2900, 3000, 3100 
FOR 1=1 T0 10 
PRINT CHR$(11); 
NEXT ! 
PRINT CHR$(14);CHR$(11) 
PRINT SPC(7); INFOS; 
PRINT " Score : "35 
FOR 1=1 10 9 
PRINT 
NEXT 1 


IF S<0 OR FIN=1 THEN RETURN ELSE G0TO 2370 





BOITE A OUTILS POUR ORIC 1 ET ATMOS / 47 


2860 : REM HRRHR NN RER ESS RSR RTARNRNANTR RTE TTT 
2900 : REM Coup pour rien 

2910 : 

2920 : HF0$="Coup pour rien” 

2930 : S=5-10 

2940 : 

2950 : RETURN 

PACE RE LECECEEE CET EEE OPEE EEE TE CEE EEETE CEE CES 
3000 : REM Double 

3010 : 

3020 : INFO$="Double !* 

3030 : + S=5+10 

3040 : 

3050 : RETURN 

3060 : REM tiatitatttttttttttnttanttitttitnttt sit 
3100 REM Jack Pot 

3110 : 

3120 : INFO$="Jack Pot !!1" 

3130: 5=5+30 

3140 : 

3150 : RETURN 

3160 : REM tnantnittttntntttntatetnntitttnttttt 
4000 : REM Fin de partie 

4010 : 

4020 : CLS 

4030 :  PRINT:PRINT 

4040 :  PRINT'La partie est finie." 

4050 :  PRINT:PRINT 

4060 : INPUT"En ferez-vous une autre (D/N) ";R$ 
4070 : FIN=0:5=100 

4080 : 

4090 : RETURN 
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Jeu du 21 


PRESENTATION 


Le but du jeu est de se rapprocher au maximum du score 21 par tir 
de dés répétés sans jamais le dépasser. 


ORIC joue contre vous et a les mêmes objectifs. 


Saurez-vous vous arrêtez à temps ? 


ORGANIGRAMME DU JEU 


Utilisateur 





LE PROGRAMME 
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ll se décompose en trois pavés : 


Initialisation 


Jeu 


Fin du jeu 


Lignes 1000 à 1550 
C'est la présentation du programme 
à l'utilisateur. 


Lignes 2000 à 2450 

Le jeu se décompose 

en : 

- Jeu utilisateur Lignes 2100 à 2240 
- Jeu ORIC Lignes 2300 à 2360 
La procédure de tir aléatoire est commune 
aux jeux utilisateur et ORIC. 


Lignes 2500 à 2630 
Affichage des résultats du joueur et d'ORIC. 
Initialisation éventuelle d'une nouvelle partie. 


Lignes 3000 à 3040 
Restitution du curseur et arrêt du programme. 


LES VARIABLES UTILISEES 


A 

AR 

A$ 
MISE 
oc 
PERDU 
USER 


Représente le tir de dés 

Argent disponible pour le joueur 

Caractère action joueur 

Argent misé par le joueur 

Total ORIC 

Variable booléenne de test de fin de partie 


Total utilisateur 
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REX Jeu du 21 


GOSUB 1000 ’Initialisation 
GOSUB 2000 ‘Jeu 
60SUB 3000 ’Fin du jeu 


END 
REN #HN2Rttttttttetnatttt net tttAttaNtIAIt 
REM Initialisation 


PAPER 0 : ENK 5 : PRINT CHR$(17) 
REX Titre 
PRINT CHR$(12) 
PRINT CHR$(4):CHR$(27)3 "N°; 
PRINT CHR$(27); "A JEU DU 21"; CHR$(4) 


REX objet 
PRINT:PRINT:PRINT:PRINT 
PRINT'OBJET :"; 
A$="D" ’Code couleur = Bleu 
GOSUB 1500:PRINT"Jeu de hasard." 


REM Job 
PRINT: PRINT:PRINT 
A$="F" "Code couleur = Cyan 
PRINT'JOB :°; 
GOSUB 1509:PRINT"Vous possedez 100 francs." 


GOSUB 1500:PRINT" Nisez une sonse inferieure à " 
GOSUR 1500:PRINT" 100 francs . Lancez le de 
6OSUB 1500:PRINT" autant de fois que vous le " 
6OSUR 1500:PRINT" voulez pour vous rapprocher” 
6OSUB 1500:PRINT" au maxiaua du score 21 ." 
GOSUB 1500:PRINT" ORIC 5e sesurera alors a vous.” 
REM Debut 
PRINT: PRINT: PRINT 


A$="C" ’Code couleur = Jaune 

PRINT"DEBUT :*; 

60SUB 1500:PRINT"Pour cossencer, appuyez" 

GOSUB 1500:PRINT" sur une touche quelconque." 
GET A$ ’Attente de l'appui sur une touche 


REN Initialisation des variables 


AR=100 ‘Somme disponible 


RETURN 
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1410 : 


1500 
1510 


1520 : 


1530 


1540 : 
1550 : 


2000 


2010 : 


2015 


2020 : 


2030 
2035 


2040 : 


2050 


2060 : 
2070 : 
2100 : 


2110: 


2120 
2130 


2140 : 
2150 : 
2160 : 
2170 : 
2180 : 
2190 : 
2200 : 


2205 : 


2210 : 
2220 : 


2230 : 


2240 : 
2309 : 
2310 : 
2320 : 


2330 : 
2340 : 


2350 
2360 
2400 
2410 
2420 
2439 


IAE LELECEE ECO CEE CETTE CRETE EE 
REM Couleur d’une ligne 


PRINT CHR$(27) ;"H";CHRS (27) ;A$; 


RETURN 
CIDRE CECELEEE CEE LOT E CEE EEE ÉECEETETEEEE 
REN Jeu 


0C=0:USER=0 

60SUB 2100 ’Jeu utilisateur 

G0OSUB 2300 *Jeu ORIC 

60SUB 2500 Affichage des resultats 
INPUT'Nouvel essai (O/N)";R$ 

IF R$="0" THEN G0TO 2000 ELSE RETURN 


LILI COL COEE EC CEE CEE CELET EE CCCCEUTEELEC EE TS 
REM Jeu de l'utilisateur 


CLS 

INPUT"Mise "; MISE 

PRINT:PRINT:PRINT"Pour obtenir un nouveau tir,appuyez" 
PRINT'"sur T et pour faire jouer ORIC" 

PRINT"appuyez sur F.* 

GET A$ : IF A$C)"T" THEN GOTO 2210 

G60SUB 2400 

USER=USER+A 

IF USER>21 THEN PERDU=1:RETURN 


PRINT'Tir "5h" Total :"}USER 
IF A$="F* THEN RETURN 
G0TO 2170 


CURE CECETEEE COLLE LE CPE RENE ETEETEEECE EEE 
REN Jeu ORIC 


GOSUB 2400 
0C=0C+A 
IF 0C>19 THEN RETURN ELSE GOTO 2300 


LIRE CECELEUECEEE CCC TECEEEE CONTENTER 
REM Tir aleatoire d’une variable À 


ASINTIRND(1) 46) +1 


2440 : RETURN 
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GITE LEEE COUT CEE TRE NE CUUC TETE ECICEE ES 
: REN Affichage des resultats 


PRINT'Yotre score :";USER 

PRINT"Votre eise :";MISE 

IF PERDU <> 1 THEN GOTD 2590 

PRINT"Perdu par depassement!!° 

AR=AR-MISE 

PRINT"Nouveau score : ":AR 

PERDU=0: RETURN 

PRINT"Score ORIC : ":0C 

IF OC{USER OR OC)21 THEN PRINT"Bien joue":AR=AR+MISE 

IF OC?USER AND 0C(=21 THEN AR=AR-MISE:PRINT'Perdu. I] reste 


IF DC=USER THEN PRINT'Egalite !!" 
RETURN 

REN Fin du jeu 
PRINT CHR$(17) 


RETURN 





JEUX DE RÉFLEXION 
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Jeu des allumettes 


PRESENTATION 


Ce jeu très simple (à deux joueurs ou plus) n'est pourtant pas dénué 
d'intérêt. Un nombre N d'allumettes est déposé sur une table. Chaque 
joueur retire, à tour de rôle, 1, 2 ou 3 allumettes. Celui qui retire la 
ou les dernières allumettes a gagné. Ici, il y a deux joueurs : vous 
et ORIC. 


Saurez-vous le battre à coup sûr ? 


ORGANIGRAMME DU JEU 


Le programme a £a structure A. 


Les deux joueurs (en l'occurence vous et ORIC) jouent jusqu'à ce que 
la dernière allumette ait été retirée. C'est vous qui choisissez le nom- 
bre d'allumettes au départ. 


Le jeu conrespond à L'onganigramme suivant 


LE PROGRAMME 
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La tactique d'ORIC est fort simple : 


S'il reste plus de 7 allumettes, il en retire un nombre quelconque 
compris entre 1 et 3. 


S'il en reste 7 ou moins : 


Il en reste 
Il en reste 
Il en reste 
Il en reste 
Il en reste 


7 
6 
5 
4 
3 


: ORIC en prend 3 et gagne en 2 coups. 
: ORIC en prend 2 et gagne en 2 coups. 
: ORIC en prend 1 et gagne en 2 coups. 
: ORIC en prend 1 et vous gagnez. 
ou moins : ORIC gagne en 1 coup. 


ll se décompose en trois pavés : 


iInitialisation Lignes 1000 à 1700 
Module de commande Lignes 1000 à 1060 
Présentation Lignes 1100 à 1540 
Init. du jeu Lignes 1600 à 1690 


Lignes 2000 à 2160 
La validité du jeu est testée 
Lignes 2040 et 2050 
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Fin du jeu 


Lignes 3000 à 3030 
La partie est rapidement commentée. 


LES VARIABLES UTILISEES 


A$ 
GAGN 
N 

TIR 
USER 


Remarque 


Code couleur de ligne 

Indique le vainqueur 

Nombre d'allumettes restantes 

Nombre d'allumettes retirées par ORIC 


Nombre d'allumettes retirées par le joueur. 


Avec un peu d'entraïhement, vous arriverez sans doute à battre ORIC 


à coup sûr. 


Un bon exercice consisterait à chercher une meilleure tactique de 
jeu et à la programmer. Si vous n'arrivez plus à le battre, c'est cer- 
tainement que cette tactique est bonne. 





REN Jeu des allumettes 


6OSUB 1000 ’Initialisation 
GOSUB 2000 Jeu 
GOSUB 3000 ’Fin 


END 
QUE ETES TETE CE ECTS T TOUT TETE CETTE TEST EE) 


: REM Initialisation du jeu 


GOSUB 1100 ’Regle du jeu 
60SUB 1600 ‘Initialisation 


3: RETURN 


1060 : 
: REN Regle du jeu 


 —.— = 
= ur » 
S & 2 S 
sSsss S 


= 
5 
ss 


1430 : 
1440 : 
1450 : 
1460 : 
1470 : 
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LA LEE EL EEE CEE TENTE EEE EAN TEST ETS 


PAPER O:INK 5 
REN titre 
PRINT CHR$(12) ;CHR$ (4) 
PRINT CHR$(27)3 "N°3; CHR$ (27); "A JEU DES ALLUMETTE 


PRINT CHR$(4) 

REM Objet 
PRINT:PRINT:PRINT: PRINT 
A$="D":PRINT'OBJET :°; 
GOSUB 1500:PRINT"Jeu à astuces." 

REM Job 
PRINT: PRINT: PRINT: PRINT 
A$="F":PRINT" JOB :*; 
GOSUB 1300:PRINT"N alluaettes sont disposees" 
60SUB 1500:PRINT" sur l'ecran devant 2 joueurs:" 
GOSUB 15300:PRINT" vous et ani . Chacun des deux" 
60SUB 1500:PRINT" joueurs va retirer à tour de * 
GOSUB 1500:PRINT" role 1,2 ou 3 allumettes ." 
60SUB 1500:PRINT" Celui qui preleve la ou les” 
G60SUB 1500:PRINT* derniere(s) alluaette(s)" 
6OSUB 1500:PRINT" a gagne .” 

REX Debut 
PRINT:PRINT: PRINT 
A$="C":PRINT"DEBUT :°; 
60SUB 1500:PRINT'Pour coasencer le jeu, appuyez"; 
60SUB 1500:PRINT" sur une touche quelconque ." 
GET B$ 

RETURN 


LUE AR LELEELEE EEE E CE EE EE EEE NÉE EEE EE EEE EE EEE 


1500 : 
1510 : 


REN Couleur d’une ligne 


1520 :PRINT CHR$(27)"H";CHRS (27); A$; 


1530 : 
1540 : 
1600 : 
1610 : 


œ 
re 
= 


1650 : 
1660 : 
1670 : 


RETURN 
LIRE LEE CEE CE CE CC TEE EEE EEE ETC EE EEE ETES 
REN Initialisation du jeu 


CLS ’Effacement ecran 
PRINT:PRINT:PRINT:PRINT 
INPUT"Nosbre d’allumettes";N 
FOR I=1 T0 7 

READ T{1) 
NENT I 


1880 :DATA 1,2,3,1,1,2,3 
RETURN 
REN tétintsitntnsttntttnnnatittntntttntitt 


1690 : 
1700 : 
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REN Jeu 


PRINT 

INPUT"Coabien en prenez-vous";USER 

IF USER(I THEN 6070 2150 

IF USER>3 THEN 6070 2159 

N=N-USER 

IF N=0 THEN GAGN=1:RETURN 

PRINT"I1 en reste";N 

IF N;7 THEN TIR=INTIRND(H)431+1 ELSE TIR=T(NI 

PRINT"J'en prends";TIR 

NEN-TIR 

PRINT"I] en reste"iN 

IF N=0 THEN GAGN=0: RETURN 

6010 2000 ’Le jeu continue 

PRINT"Prenez !,2 ou 3 allunettes !'":G0TD 2000 
LULU LE CEE C CCE EEE EEE EEE EEE CTETEE EEE ES 
REN Fin de la partie 


IF GAGN=0 THEN PRINT" J'ai gagne. *ELSE PRINT'Vous avez gagn 


RETURN 
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Les piranhas attaquent 


PRESENTATION 


Un baigneur (en l'occurence vous) doit échapper à une attaque mas- 
sive de piranhas. || peut se déplacer d'une case dans n'importe qu'elle 
direction. Après quoi, chacun des piranhas (eh oui ! la vie est dure) 
se déplace également d'une case dans votre direction. Le seul moyen 
pour échapper à ces prédateurs est de se cacher derrière un rocher. 
En effet, un piranha ne sait pas distinguer un nageur d'un rocher, et, 
s'il a le malheur ge croquer un rocher, sa vie s'arrête là, c'est l'in- 
digestion. 


ORGANIGRAMME DU JEU 


Le jeu, d'apparence complexe se décompose en fait de manière fort 
simple en deux opérations : 
. Déplacement joueur, 

Déplacement piranhas 
Déplacement joueur : 


Les touches E R T) contrôlent le déplacement 
D F G}! dans tous les sens de 
C V B) la manière suivante 


e Si le joueur appuie sur une autre touche que E, R,T, D,F, G, C 
V ou B, le déplacement n'est pas accepté. 


e Si le joueur tente de percuter la côte (c'est-à-dire les extrémités 
de l'écran), il ne bouge pas, mais les piranhas avancent tous d'une 
case. 


e Enfin, si le déplacement fait atterir le nageur sur un rocher, ou. 
sur un piranha, la partie s'arrête. 
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Le déplacement du joueur correspond done à L'ongani- 
gramme suivant 





LE PROGRAMME 


Le jeu se décompose en trois pavés : 


Initialisation Lignes 1000 à 1760 
Règle du jeu Lignes 1000 à 1450 
Définition de 
caractère Lignes 1700 à 1760 
Jeu Lignes 1800 à 2800 
Init. partie Lignes 1800 à 1970 
Jeu Lignes 2000 à 2050 
Joueur Lignes 2200 à 2400 
Piranhas Lignes 2500 à 2800 
Fin de jeu Lignes 3000 à 3050 


Restitution du curseur. 


LES VARIABLES UTILISEES 

A$ Code couleur de ligne, puis code de déplace- 
ment joueur. 

A Code ASCII de déplacement joueur. 

DX, DY Directions de déplacement piranhas 
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FIN indicateur de fin de partie 

1 Index de boucle. 

NB Nombre de piranhas. 

X, Y Tableaux de déplacements des piranhas 
XN, YN Position du nageur 

XP, YP Position des piranhas 

XR, YR Position des rochers 


REX Les Pirhanas attaquent 


60SUB 1000 Module d’initialisation 
G60SUB 2000 ’Jeu 

GOSUB 3000 ’Fin du jeu 

END 


COR 2 CECEE GET NOTE CE CEE COCEO COTON TETE TETE 
1900 : REM Module d'affichage du senu 

1010 : 

1020 :  GOSUB 1100 ‘Definition du jeu 

1030 :  GOSUB 1800 ‘Debut du jeu 

1040 : 

1950 : RETURN 
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1060 
1100 
1110 
1120 
1130 
1140 


1150 : 


1160 


1180 : 


1190 
1200 
1210 
1220 


123 


1240 : 


1245 


1250 : 
1260 : 
1270 : 
1280 : 


1290 
1300 
1310 
132 

1330 
1340 


1350 


1360 : 


1370 
(Shi 


1380 : 


1390 
1400 
1410 


1420 : 


1450 


1440 : 


1450 
1460 
1500 
1510 
1520 
1530 
1540 
1700 
1710 
1720 
173: 


1740 


< 





CITE LUE EEE CT TETE EEE TETE NE EN TETE EEE EEE 
REM Regles du jeu 


PAPER Os INK S:PRINT CHR$(17) 
REM Titre 
PRINT CHR$(12) 
PRINT CHR$(4); CHR 427) 3 "N"s 
PRINT CHR$127):"A LES PIRHANAS ATTABUENT";CHR$ (4) 
REN Objet 
PRINT: PRINT: PRINT 
A$="D" ‘Code couleur=Bleu 
PRINT'OBJET :"3 
GOSUË 1500:PRINT"Jeu de reflexion . 
REM Job 
PRINT: PRINT :PRINT 
6OSUB 1700 ‘Confection des caracteres particuliers 
A$="F" ’Code couleur=Cyan 
PRINT'JOB :"; 
BOSUB 1500:PRINT"Vous etes dans une mer pleine"; 


GOSUB 1500:PRINT" de pirhanas.Les À representent" 
GOSUB 1500:PRINT" des rochers,les + des pirhanas" 
G60SUB 1500:PRINT* et 0 le joueur." 
GOSUR 1500: PRINT" Les touches ERT DFG et CVB" 
GOSUB 1500:PRINT" permettent de se deplacer dans" 
GOSUB 1500:PRINT" toutes les directions selon le” 
GOSUB 1500:PRINT" schema ci-dessous :" : PRINT 
GOSUB 1500:PRINT" Touches ERT Deplacement XY1" 
GOSUB 1500:PRIHT" 7 DF6 du [\]" 
GOSUR 1500: PRINT" M _"sCHRS 
REM Debut 
PRINT: PRINT 


A$="C" "Code couleur = Jaune 
PRINT'DERUT :"; 
GOSUB 1500:PRINT"Pour commencer , appuyez sur" 


GOSUB 1500:PRINT" une touche quelconque ." 
GET A$ ‘Attente d’une action clavier 
RETURN 


LIL CECEE EEE LEE TER CEA EE TENTE TA TETE EEE ETES 
REM Module de couleur de ligne 


PRINT CHR$127);"H"3CHRS (27):A$; 
RETURN 


REN HARÉEEENENARENNNNENTRNNENNNNETENENNRX 
REN Kedefinition des lettres À à J 


FOR 1=0 TO 849-1 
READ À : POKE 46030+818B+1,À 
HEXT I 
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1745 :  RESTORE ’Position pointeur 
1750 :DATA 0,0, 60,48, 40,36,2,0 A 
1751 :DATA 4,14,21,4,4,4,4,0 ?B 
1752 2 DATA 0,0,31,3,5,9,18,0 ‘© 
1753 : DATA 0,8,16,63,18,8,0,0 ?D 
1754 :DATA 0,0,0,4,0,0,0,0 Æ 
1755 :DATA 0,4,2,63,2,4,0,0 ?F 
1756 : DATA 1,2,36,40,48,62,0,0 * 
1757 :DATA 0,4,4,4,4,21,14,4 H 

1758 :DATA 32,16,9,5,3,15,0,0 ?I 

1759 : RETURN 

ECRIRE COCEC EEE CEE CE CE CEE CO LEE COLE EEE EEE 

1800 : REM Initialisation du jeu 

1810 : 

1820 : CLS ’Effacenent d'ecran 

1830 : DIM X(10),Y(10) ’Disension des tableaux de travail 
1840 : FOR 1=1 T0 08 ’Noabre de pirhannas au debut 

1850 : XP=INT(RND(1)038)e1 2 YP=INTURND(L)424)+1 


1860 : A=SCRN XP, YP) 

1870 : IF AC)32 THEN 1=1-1 ELSE PLOT AP, VP, "+": X(L)=XP:V(T)=YP 
1880 : NEXT I 

1890 : FOR 1=1 T0 30 *Noabre de rochers 

1900 : XR=INTRND(1)#38)+1 : YR=INTIRND(1)#24)+#1 

1910 : A=SCRNUXR, YR) 

1920 : IF AC)32 THEN I=1-{ ELSE PLOT KR,YR, "4" 

1930 : NEXT I 

1940 :  ANSINTIRND(1)438)+#1 : YN=INT(RND(1)424)+#1 


1950 : IF SCRNIXN,YN)(>32 THEN GOTO 1940 

1960 :  PLOT XN,YN,"0" : RETURN 

1970 : REM HRNNUNERTREENANSTN ER NNTTTTRTTTRTTE 
2000 : REM Deroslenent du jeu 

2010 : 
2020 :  G60SUB 2200 ‘Joueur 

2030 : GOSUB 2500 ’Pirhannas 

2040 IF FINC{ THEN GOTO 2000 

2050 : RETURN 

PAR TA RE LUCE CEE E CES COTE CET ENT CCE UT CET ENCRES 

2200 : REM Deroulenent du jeu 

2210 : 

2220 : GET A$ 

2230 : A=ASC(A$) 

2240 : IF A=690RA=820RA=B40RA=6B0RA=700RA=7 10RA=670RA=B60RA=6à THEN 
2260 

2250 : 6010 2200 ‘Deplacesent non accepte 

2260 : PLOT AN,YN," ":SX=XN:SY=YN 





IF A$="E" THEN XN=XN-1:YN=YN-1:6070 2360 

IF A$="R" THEN YN=YN-1:6070 2360 

IF A$="T" THEN XN=XN+I:YN=YN-1:6070 2360 

IF A$="D" THEN XN=XN-1:G0T0 2360 

IF A$="F" THEN 6070 2360 

IF A$="6" THEN XN=AN+1:60T0 2360 

IF A$="C" THEN XN=XN-1:YN=YN+1:607D 2360 

IF A$="V*" THEN YN=YN+1:60T0 2360 

IF A$="B" THEN XN=XN+1: VN=YN+1 

IF AN=390RINC1ORYN=270RYNCOTHENAN=SX : YN=SY:PLOTAN, YN, *O":R 


A=SCRN LAN, YN) 

IF AC32 THEN GOSUB 2700 
PLOT XN,YN, "0" 

RETURN 


CALE CELL EE CELL EEE EE EEE EEE EE EEEEEEEEEEES 
: REN Deplacenent Pirhana 


FOR 1=1 TD 08 
IF X(11299 THEN NEXT I:1F 129 THEN RETURN 
PLOT X4D),Y(D,* * 
IF X(HI#Y(D=0 THEN NET 1 
DI=XN-X(D 
IF DX=1 THEN XD)=X (1141 
IF DXé=-1 THEN H(D)=H (1-1 
DY=YN-Y ID) 
1F DY>=1 THEN YUD)=Y(D+1 
IF DYC=-1 THEN YD)=V(D)-1 
IF SCRNEX(I),Y(I))=42 THEN BOSUB 2660:NEXT I: IFI=9THENRE 


IF SCRNIX(I),Y(1))=48 THEN GOSUB 2700:NEXT 1:1F1=9THENRE 


PLOT X(I),Y(I),"+" 
NEXT I 
RETURN 
SHDOT 
PLOT X(H),Y(D)," * 
X(1)=99 
RETURN 
EXPLODE ’Nageur foutu 
FIN=1 ’Fin de la partie 
RETURN 


2800 RETURN 


3000 : 
3010 : 
3020 : 
3030 : 
3040 : 
3050 : 


REN Fin de partie 
FOR 1=1 10 5 
PAPERI : MAIT 10 : PAPERO : WAIT 10 
NEXT 1! 
CLS:PRINT CHR$(17) 
RETURN 
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Mémoires à court terme 


PRESENTATION 


Tout le monde possède une mémoire à court terme. En effet, tout le 
monde peut emmagasiner des concepts de manière immédiate. 


Ce programme se propose de déterminer la limite supérieure de votre 
mémoire à court terme. 


Pour ce faire, ORIC envoie N caractères à l'écran pendant une seconde. 
Vous devez restituer les N caractères affichés, dans le bon ordre. Une 
bonne réponse, et le nombre de caractères augmente de un, une mau- 
vaise réponse, et le nombre de caractères diminue de un. 


Ce jeu passionnant, devient vite difficile, voire infaisable. 


ORGANIGRAMME DU JEU 


Le programme a £a structure A. 


Le jeu a La structure suivante 


{voir page suivante) 
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Tirage 


1 Cacactare 


LE PROGRAMME 


Il se décompose en trois pavés : 





Initialisation Lignes 1000 à 1550 
C'est la présentation du programme 


à l'utilisateur 


Jeu Lignes 2000 à 2260 
Le jeu se décompose 
en : 
- Tirage aléatoire Lignes 2200 à 2250 
- Affichage Lignes 2050 à 2060 
- Saisie réponse Ligne 2100 
- Test validité Lignes 2110 à 2170 
Fin du jeu Lignes 3000 à 3070 


Restitution du curseur et arrêt du programme 


LES VARIABLES UTILISEES 


A Code ASCII d'un tirage aléatoire 


+22v> 
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Code couleur de la ligne 
Un des caractères de la réponse 
Nombre de caractères à afficher 
Variable de fin de partie 


Tableau du jeu 


REN Memcire a court terne 


60SUB 1009 ’Initialisation 

GOSUB 2000 ’Jeu 

60SUB 3000 ‘Fin du jeu 

IF BIS=! THEN 6070 40 Nouvelle partie 


PRINT CHR$(17):END 
REM HSANRNSRNAREN SENS SRTNNENNNTITE ET 
REM Initialisation 


PAPER © : INK 5 : PRINT CHR$(17) : DIM T{100):6h21 
REX Titre 


PRINT CHR$ 112) 
PRINT CHR$ (4) ;CHRS (27); "N°; 
PRINT CHRS(27); "A MEMDIRE 8 COURT TERME®;CHRS(4) 


REN Objet 


PRINT: PRINT: PRINT: PRINT: PRINT 
A$="D" ’Code couleur = Bleu 
PRINT'OBJET : *; 

GOSUB 1400:PRINT"Jeu de seacire.* 


REM Job 


PRINT: PRINT: PRINT: PRINT 

A$="F" Code couleur = Cyan 

PRINT" JOB : "; 

GOSUB 1409:PRINT'ORIC va afficher une suite* 

GOSUB 1400:PRINT" de lettres pendani 3 secondes," 
GOSUB 1400:PRINT" Vous devrez la restituer juste.” 


GOSUB 1400:PRINT" Une bonne reponse augmente de ! 


GOSUB 1400:PRINT" le nosbre de lettres et une" 
GOSUR 1400:PRINT" sauvaise reponse le disinue di" 
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REN Debut 


PRINT:PRINT:PRINT:PRINT 

A$="C" ’Code couleur = Jaune 

PRINT"DEBUT : *; 

GOSUB 1400:PRINT"Pour cossencer , appuyez sur*; 
GOSUB 1400:PRINT" une touche quelconque." 


GET A$ ‘Attente de l’appui sur une touche 


: RETURN 
ER TRE COL EEE CHUTES ERA TETE EEE EEE EEE ES 


REM Couleur d'une ligne 


PRINT CHRS(27); "H"3CHRS(27);A8; 


: RETURN 


ORACLE LEE EE CORTE EEE ETC EEE EEE EEE CET ES 


REN Deroulesent du jeu 


IF GA=1 THEN DI=D1+1 ELSE DI=DI-1 
CLS:PRINT: PRINT: PRINT: PRINT: PRINT 
FOR 1=1 TO DI 
60SUB 2500 ’Tir aleatoire d’une lettre 
TUD=A 
PRINT CHR$(A);" "5 
NEXT 1 


WAIT 300 ’3secondes de pause 


CLS 
FOR 1=1 T0 8 
PRINT 
NEXT ! 
A$="B":60SUB 1400:PRINT"Tappez la suite de ";Dl;" lettrels 


GOSUB 1400:PRINT"apparuels) sur l'ecran." 
PRINT: INPUT A$ 


IF DICLEN(AS) THEN EN=1:6A=1:RETURN 
FOR 1=1 TO DI 

BS=NIDS (AS, 1,1) 

IF ASC(BS)COT(I) THEN ERR=ERR#I Erreur 
NEXT 1 


IF ERR=0 THEN GA=1 ELSE GA=0 


2250 : RETURN 
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(AR LEE CEE CEU EE TEE EE CETTE ETES 
EM Tir aleatoire d’une lettre 


AINTRND (1) 426) +65 


: RETURN 
1 REN DONSNARIRNANRT NAN NTANNTANNTATTEAETT 
: REM Fin de la partie 


Cis 
IF 64=1 AND EN=0 THEN PRINT"Bien joue !" 
IF G6A=0 THEN PRINT'Pas bien brillant : “;ERR;" erreurts)!! 


IF EN=1 THEN EN=0:PRINT" J'avais dit ";D1;" lettres !!!*:DI 


PRINT:PRINT: PRINT 

INPUT" Un autre essai (0/N) ";R$ 

IF R$="C" THEN BIS=1 ELSE B1S=0 

PRINT:PRINT"Fin du jeu au score de ";D1;" lettres.* 
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Mastermind 


PRESENTATION 


La réputation de ce jeu n'est plus à faire. Pour les jeunes poussins, 
rappelons tout de même la règle du jeu : 


Un nombre à N chiffres (ici 4 chiffres) doit être découvert en un 
minimum de coups. ORIC choisit ce nombre et indique le nombre de 
chiffres bien placés et le nombre de chiffres mal placés. 


intellectuel non ? 


ORGANIGRAMME DU JEU 
Le programme a £a structure A. 
Le jeu, très simple, consiste à afficher le nombre de chiffres bien 


(et mal) placés et à arrêter la partie quand les quatre chiffres sont 
bien placés. Ce qui se représente de la manière suivante : 
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Recherche 
et affichage 
mal places 


Recherche 
et affichage 
bien places 





LE PROGRAMME 


Il se décompose en trois pavés : 


Présentation et 

initialisation Lignes 1000 à 1710 
Module de commande 
Présentation 
Init. variables 


Jeu Lignes 2000 à 2210 


Lignes 1000 à 1060 
Lignes 1100 à 1550 
Lignes 1600 à 1710 


Recherche et affichage des chiffres bien et 


mal placés. 
Fin du jeu Lignes 3000 à 3060 


Affichage du nombre de coups nécessaires 
pour trouver les quatre chiffres et leur 


position. 
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LES VARIABLES UTILISEES 


A$ 


> 


: 


12785 





Code couleur de ligne 


Indicateur de double dans la recherche du 
nombre à trouver 


Indicateur de chiffre bien placé 

index de boucle 

Indicateur de chiffre mal placé 

Nombre de coups joués 

Tableau joueur : contient le nombre proposé 


Tableau ORIC : contient le nombre à trouver. 


REN NASTERNIND 


60SUB 1000 ’Initialisation de la partie 
60SUB 2000 *Jeu 
60SUB 3000 ’Fin de la partie 


END 
REN Shitittitititnnttnttttnnntttttttntstttt 
REM Initialisation 


60SUB 1100 ’Affichage menu 
GOSUB 1600 ’Initialisation des variables 


RETURN 
REN HRONEANARGANANNNRNNAENNENNTENEEANNTEES 
REM Affichage du senu 


PAPER Ô : INK & : PRINT CHR$(17) Suppression curseur 
REM Titre 


PRINT CHR$(12) 

PRINT CHRS (4) ; CHRS 27) ; "M": 

PRINT CHRS (27); "4 MASTERNIND" ; CHRS (4) 
REX Objet 


PRINT:PRINT:PRINT: PRINT 

A$="D" ‘Code couleur = Bleu 
PRINT"ORJET : "; 

60SUB 1500:PRINT"Jeu de reflexion." 


REM Job 
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1260 : 

1270 : PRINT: PRINT: PRINT 

1280 : A$="F" Code couleur = Cyan 

1290 : PRINT"JOB :"; 

1300 : 60SUB 1500:PRINT'ORIC choisit un nosbre" 

1310 : 60SUB 1500:PRINT" a 4 chiffres tous differents." 
1320 : 6OSUB 1500:PRINT" Le but du jeu est de trouver ce“ 
El 

1330 : 6OSUB 1500:PRINT" nosbre en un #iniaua de coups." 
1340 : 

1350 : REM Debut 

1360 : 

1370 : PRINT:PRINT:PRINT 

1380 : A$="C" ’Code couleur = Jaune 

1390 : PRINT"DEBUT :"; 


1400 : 60SUB 1500:PRINT"Pour cosmencer, appuyez sur" 


1410 : 6OSUB 1500: PRINT" une touche quelconque." 
1420 : GET A$ ‘Attente d’une action clavier 
1430 : 


1440 : RETURN 

OR TRE LÉCE COL COTE CEE EEE EE EEE ECC EEE EE LEE 
1500 : REM Definition de La couleur d’une ligne 
1510 : 

1520 : PRINT CHR$(27);"H"3;CHRS (27) ;A$; 

1530 : 

1540 : RETURN 

1550 : REN HHRHNSRNNNANNNNARNENANNNNAN TT EENATEATEX 
1600 : REM Initialisation des variables 


1610 : 
1620 : FOR I=1 T0 4 
1630 : TUII=INTIRND(1) 410) 


1635 : IF 1=1 THEN NEXT ! 
1640 : FOR J={ TO 1-1 


1650 : IF T(J)=T(I) THEN A=! 
1660 : NEXT J 

1670 : IF A=1 THEN I=1-1:4=0 
1680 : NEXT I 

1690 : 


1700 : RETURN 
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OUR LESC CEE CE EEE ESSENCE EE TTE EEE ETS 
: REN Jeu 


CLS 
PLOT 20,1,"BP":PLOT 30,1, "MP":PLOT 3,1," Jeu":PRINT:PRINT:P 


BP=0:MP=0:NB=NB+1 ’Nonbre de coups joues 
INPUT 8$ 
FOR 1=1 T0 4 

RITI=ASCIMIDS (AS, 1,1))-48 
NEXT I 
FOR 1=1 T0 4 

IF T(I)=RUE) THEN BP=BP+1 ELSE GOSUB 2170 
NEXT ! 
PLOT 20,NB+2,BP+48:PLOT 30,NR+2,MP+48 
IF BP=4 THEN RETURN ELSE 6070 2040 

FOR J=1 10 4 

IF R(I)=T(J) THEN MP=MP+i 
NEXT J 
RETURN 
REN Fin du jeu 


CLS 
PRINT "Le nosbre à ete trouve en “;NB: "coups." 
PRINT CHR$(17) ’Restitution du curseur 


RETURN 





GRAPHIQUES ET 
MATHÉMATIQUES 
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Figures de Moivre 


PRESENTATION 


On attribue souvent le nom de "figures de Moivre" aux dessins obte- 
nus par le glissement d'une droite sur deux courbes planes. Les adeptes 
de "fils et pointes" ne me contrediront pas. 


Les ordinateurs graphiques en général, et ORIC en particulier, per- 
mettent de tracer de telles figures à moindre effort. 


Dans la suite, sept figures sont proposées : 


ORGANIGRAMME DU TRACE 
Chaque programme a £a structure Linéaire B. 


Description de chaque programme : 


MOIVRE 1 : Les deux courbes planes sont deux droites à 90° 
e MOIVRE 2 : Les deux courbes planes sont deux droites d'angle 
< 90° 
e MOIVRE 3 : Combinaison de 4 figures de type 1. 
e MOIVRE 4 : Les deux courbes planes sont deux droites à 90° 
e MOIVRE 5 : Combinaison de 4 figures de type 4 
e MOIVRE 6 : Les deux courbes planes sont deux côtés d'un 


triangle isocèle. 


e MOIVRE 7 : Combinaison de 2 figures de type 6 pour former un 
triangle complet. 
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10 : REM Moivre ! : REN Moivre2 
20 : ; 
30 :  HIRES 2 HIRES 
40: FOR 1=0 T0 19 5 FOR 1=0 TO 19 
50 : CURSET 15,1041,1 ; CURSET 15,10841,1 
ù: DRAM 108(1+1),199-(1081),1 : DRAW 10811+1),199-11941),1 
70:  NEITT 5 NET I 
GET A$ : GET A$ 
90 :  LORES 0 
100 : 
110 : END 


\ 
À 


TZ 
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REM Moivre 3 


HIRES 
FOR 1=1 T0 12 
CURSET 20,16t1,1 
DRAN 1641,199-1641,1 
MENT 1 
FOR 1=0 10 11 
CURSET 20+1418,0,1 
DRAN 200-1841, 1641, 
NEXT 1 
FOR 1=0 T0 (1 
CURSET 20,199-1841, 1 
DRAN 1841,-19941611;1 
NEXT ! 
FOR 1=0 TO 11 
CURSET 20+1416,199,1 
DRAN 200-1841,-16t1,1 
NENT ! 


CURSET 220,0, L:DRAN 9,199, 


GET A$ : LORES 0 


10 : REM Moivre 4 

20 : 

30 : HIRES 

40: FOR 1=1 T0 10 

50 : CURSET 20+149,99,1 
60 : DRAM 100-149,-149,1 
70 : NEXT I 

80 : 

90 : 

190 : 

110 : END 


GET A$ : LORES 0 





BOITE A OUTILS POUR ORIC 1 ET ATMOS / 79 


10 : REN Moivre 5 5 HIRES 
10 : REM Moivre 6 

HIRES 20 : 

FOR 1=1 T0 11 30:  HIRES 
CURSET 20+149,99,1 5 FOR 1=1 T0 10 
DRAM 100-941,981,1 ; CURSET 70+1410,150,1 
DRAN 100-941,-981,1 ! DRAN 55-1215,-120#1041,1 
CURSET 20+#189,99,1 : . NET I 
DRAM 100-981,-981,1 : 
DRAM 100-941,981,1 5 GET A$ : LORES 0 

NENT 


CURSET 120,0,0:DRAN 0,199, 1 
CURSET 20,99,0:DRAN 200,0, 1 


160 : ET A$ : LORES 0 


180 END 





80 


3 HIRES 
REN Moivre 7 


HIRES 
FOR 1=1: T0 10 
CURSET 70+1410,150,1 
DRAN 55-1215,-120#1081,1 
CURSET 170-1#10,150,1 
DRAN -55#1415,-12041410,1 
NEXT 1 


CURSET 85,150, 
DRAN 110,0, 1 

DRAN -55,-110,1 
DRAN -55,110,1 


GET A$ : LORES 0 
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Biorythmes 


PRESENTATION 


Des études de statistiques ont permis de modéliser la "forme! rela- 
tive d'un individu tout au long de sa vie. Cette modélisation met en jeu 
trois cycles temporels sinusoidaux : 


. Un cycle physique de 23 jours, 
. Un cycle émotionnel de 28 jours, 
. Un cycle intellectuel de 31 jours. 

Le nom de biorythme désigne la représentation mensuelle de ces 3 
cycles. Les sinusoides ont pour origine votre date de naissance. 
(Elles sont donc particulières à chaque individu). 

L'ordonnée Y de chaque sinusoide indique : 

. Une période active si Y > 0, 
. Une période passive si Y< 0 , (de récupération) 


. Une période critique si Y = 0 (restez bien tranquillement chez vous 
ces jouis là). 


ORGANIGRAMME DU TRACE 
Le programme a £a structure A. 


Le tracé est initialisé par l'entrée de la date de naissance de l'in- 
téressé, et par les mois et année du tracé. 


Puis, le nombre de jours écoulés depuis la naissance jusqu'au premier 
jour du mois du tracé est calculé. 
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Le tracé consiste simplement en : 


- calcul des ordonnées de chaque courbe pour tous les jours du mois 


du tracé. 


- affichage de ces ordonnées. 


LE PROGRAMME 


Il se décompose en trois pavés : 


Présentation et 
initialisation 


Acquisition des 
données 


Tracé 


Lignes 1000 à 1710 

Module de commande Lignes 1000 à 1060 
Présentation Lignes 1100 à 1550 
Initialisation Lignes 1600 à 1710 


Lignes 2000 à 2180 
Date de naissance, 
Mois et année du 
tracé 


Lignes 3000 à 3710 

Calcul du nombre de 

jours écoulés depuis la 

naissance Lignes 3000 à 3260 
Affichage Lignes 3300 à 3710 


LES VARIABLES UTILISEES 


A$ 
A,B,C 
AB 

BI 

I 

IN 

JN 

MN 

T 

TT 


Code couleur de ligne 

Ordonnées de chaque cycle 

Année du biorythme 

Indicateur d'année bissextile 

Index de boucle 

Variable de calcul 

Jour de naissance 

Mois de naissance 

Tableau du nombre de jours de chaque mois 


Nombre de jours écoulés depuis la naissance. 
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10: REM Biorythaes 

20 : 

30 : 60SUB 1000 ’Initialisation 

40 : 60SUB 2000 ’Acquisition des donnees 
50 : 6OSUB 3000 ‘Trace des biorythaes 

60 : 

70 : END 


80 : REN SHHNRNIRR MNT IRAN TNT RRTNISTTTENT 
1900 : REM Affichage du senu et initialisation des variables 


1010 : 

1020 :  GOSUB 1100 ’Presentation du senu 

1030 :  GOSUB 1600 ’Initialisation des variables 
1040 : RETURN 

1950 : 

1060 : REM ttfittitntntsttttentittittittittrstittt 
1100 : REN Presentation du aenu 

1110 : 

1120 : PAPER O:INK S:PRINT CHR$#(17) 

1130 : REN Titre 

1140 : PRINT CHR$(12) 

1150 : PRINT CHR$(4);CHR$(27)5 "N°; 

1160 : PRINT CHR$127);"A BIORYTHNES";CHRS (4) 
1170 : REN Objet 

1180 : PRINT:PRINT: PRINT: PRINT: PRINT 

1190 : A$="D" ’Code couleur = Bleu 

1200 : PRINT'OBJET :"; 


6OSUB 1500:PRINT"Trace de biorythaes." 

1220 : REM Job 

1230 : PRINT: PRINT: PRINT 

1240 : A$="F" ’Code couleur = Cyan 

1250 : PRINT"JOB :*; 

1260 : 6OSUB 1500:PRINT"Apres l’entree de votre date” 


1270 : 60SUB 1500:PRINT" de naissance , des aois et" 
1280 : 60SUB 1300:PRINT" annee pour lesquels vous 
1290 : 60SUB 1500:PRINT" desirez connaitre les courbes” 
1300 : G60SUB 1500:PRINT" biorythees , CRIC se fera un" 
1310 : 6OSUB 1500:PRINT" plaisir de tracer les cycles” 
1320 : G0SUB 1500:PRINT" intellectuel , physique et* 
1330 : GOSUB 1500:PRINT* atfactif du sois demande ." 
1340 : REN Debut 

1350 : PRINT:PRINT: PRINT 

1360 : A$="C" ‘Code couleur = Jaune 

1370 : PRINT'DEBUT :°; 

1380 : G6OSUB 1500:PRINT"Pour commencer , appuyez sur" 

1390 : 60SUB 1500:PRINT" une touche quelconque." 

1400 : GET A$ ‘Attente de la frappe d’une touche du clavier 
1410 : 

1420 : RETURN 
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1440 


1500 : 
1510 : 
1520 : 
1530 : 
1540 : 
1550 : 
1600 : 
1610 : 
1620 : 
1630 : 
1640 : 
1650 : 
1660 : 
1670 : 


LISA LECE LE TECEN EEE CETTE EEE ENT EEE ETES 
REX Couleur d’une ligne 


PRINT CHR$(27);"H°;CHR$ (27); A$; 
RETURN 


LUS DR LUCE E CEE CETTE CETTE CEE EE TEE ETES 
REN Initialisation des variables du progranse 


REN Duree en jours de chaque sois 


DIN T(12) ‘Tableau des aois 
FOR 1=1 70 12 

READ T1) 
NEXT 1 


1680 DATA 31,28,31,30,31,30,31,31,30,31, 30,31 


1690 
1700 
1710 
2000 
2010 
2020 
2030 
2040 
2050 
2080 
2070 
2080 : 
2090 : 
2100 : 
2110 : 
2120 : 
2130 : 
2140 : 
2150 : 


2160 
2170 : 
2180 : 





RETURN 
LIRE LEEE CONTES EEE CE TENTE TETE EEE 
REN Acquisition des donnees 


CLS:PRINT CHR$(17) 

PRINT CHR$ (27); "L";CHR$ (27); "A Saisie des donnees* 
PRINT: PRINT: PRINT: PRINT: PRINT 

A$="D":60SUB 1500:PRINT"Date de naissance :" 
PRINT:PRINT 

INPUT" Jour de naissance";JN 

INPUT"Mois de naissance”; MN 

INPUT" Annee de naissance"; AN 


PRINT:PRINT:PRINT:PRINT 

60SUB 1500:PRINT"Biorythaes :" 
PRINT:PRINT 

INPUT*Mois du trace";MB 

INPUT "Annee du biorythne";AB 


RETURN 
LIDIR LEEE LEE CEE EE TENTE EEE EEE CREER EE TE EE 
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3000 : REM Trace des biorythaes 

3010 : 

3020 : REN Calcul du nosbre de jours ecoules depuis 1a naissance 
3030 : 

3040 : REN Pendant l’annee de naissance 

3050 : IFUAN/4)=INT(AN/4) THEN IN=1 ELSE IN=0 

3055 : IF IN<1 AND MN=2 THEN FIN=29 ELSE FIN=T(MN) 
3060 : FOR I=JN TO FIN 

3070 : TTSTT#1 

3089 : NEXT I! 

3090 : FOR IMN+1 TO 12 

3100 : IF IN=1 AND 1=2 THEN TT=TT#29 ELSE TT=TT#T(1) 
3110 : NEXT 1 

3120 : 

3130 : REN Pendant les annees intersediaires 

3140 : FOR 1=2 T0 AB-AN 

3150 : B=AN+I-1 Annee consideree 

3160 : IF B/4=INT(B/4) THEN TT=TT#1 

3170 : TT=TT#365 

3180 : NEXT 1 

3190 : 

3200 : REM Pendant }’annee du biorythse 

3210 : IF AB/4 = INT(AB/4) THEN BI=1 ELSE B1=0 

3220 : FOR 1=1 TO NB-1 

3239 : IF B1=1 AND 1=2 THEN TT=11+29 ELSE TT=TT#7{1) 
3240 : NEXT 

3250 : 


3260 : REN ttiiitttastinnntttttttttttttttianttittt 
3300 : REM Affichage 


3310 : 

3320 : CLS : INK 6 : PRINT CHR$(17) 

3330 : PRINT CHRS(27);"L";CHRS(27);"A BIORYTHMES" 
3340 : 

3350 : FOR 1=1 TO T(NB) 

3360 : A=SIN(28PISCTT+1)/23) 

3370 : PLOT 1+3,13-104A,"4" 

3380 : B=SIN{2PI8(TT+1)/28) 

3390 : PLOT 1+3,13-108B,"." 

3400 : C=SIN(24PI(TT+1)/33) 

3410 : PLOT 1+3,13-109C,"+" 

3429 : ONEITI 

3430 : 

3440 : REN Affichage des jours 

3450 : 

3460 : PLOT 4,23,"1":FLOT 9,23,"5":PLOT 14,23,"10":PLOT 19,23, 
15" 

3470 : PLOT 24,23,"20":PLOT 29,23,"25":PLOT 34,23,"30" 





86 


REN Axes 
FOR 1=1 TO 31 
PLOT 3#1,13,"-" 
NEXT I 
FOR 1=1 T0 20 
PLOT 3,141,":" 
NEXT ! 
PLOT 35,13,")":PLOT 3,2,"*" 


REN Nature des courbes 


PLOT 0,25," #4 = Physique . = Affectif" 
PLOT 0,26," + = Intellectuel* 


REN Attente de l'appui sur une touche pour finir 


GET A$ ’Attente 
CLS : PRINT CHR$(17) ’Restitution du curseur 


: RETURN 
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Jeu de la vie 


PRESENTATION 
L'évolution temporelle d'un être vivant est dictée par des lois bien 
précises qui tendent : 
. à maintenir l'espèce vivante, où … 
. à anéantir l'espèce. 


L'espèce est maintenue vivante si elle arrive à respecter ces lois, et 
prolifère d'autant plus qu'elle n'en éprouve pas de difficultés. 


En revanche, l'espèce disparaït si elle est incompatible avec ces lois. 
Cette disparition est plus ou moins rapide, selon la faculté d'adapta- 
tion de l'espèce. 


Ce programme s'intéresse à la vie de cellules animales. Son évolu- 
tion est dictée par trois lois : 


e Phase d'adaptation : 
Toute cellule entourée par 2 ou 3 autres cellules survit. 


e Phase de reproduction : 
Si une cellule est entourée par 3 autres, une nouvelle cellule naît. 


e Phase de sous (ou sur) population : 
Toute cellule entourée par 1, 4 cellules ou plus meurt. 


Après avoir entré une population de départ sur une grille 10 x 10, 
le programme calcule et affiche l'évolution de cette population, géné- 
ration par génération. 
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ORGANIGRAMME DU JEU 
Le programme possède £a structure A. 


Après avoir calculé la génération initiale, les générations suivantes 
sont calculées, puis affichées. 


L'organigramme est donc très simple 









Prochai 


génération 
9 





Affichage 






LE PROGRAMME 


Il se décompose en trois pavés : 


Présentation et 


initiatisation Lignes 1000 à 1650 
Présentation Lignes 1000 à 1360 
Initialisation Lignes 1370 à 1650 
Jeu Lignes 2000 à 2550 
Module de commande Lignes 2000 à 2070 
Calcul génération Lignes 2100 à 2350 
Affich. génération Lignes 2400 à 2550 
Fin du feu Lignes 3000 à 3130 


Commentaires sur l'évolution 
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LES VARIABLES UTILISEES 


1020 
1030 


1040 : 


1050 : 
1060 : 
1070 : 
1080 : 


1090 


1100 : 


1110 


1120 : 
1130 : 
1140 : 
1150 : 
1160 : 


1180 :. 





Code couleur de ligne 
Numéro de la génération 
Index de scrutation de tableaux 


Nombre de cellules voisines de la cellule 
courante 


Tableau du jeu 


Coordonnées d'une cellule. 
REN Jeu de ja vie 
60SUB 1000 ’Initialisation 


60SUB 2000 Generations successives 
60SUB 3000 ’Fin du jeu 


END 
: REN tHt0tttttttttnnnnttnnnttantttttttstt 
: REM Module d’initialisation 


PAPER 0 : INK 6 

REN Titre 
PRINT CHR$(12) 
PRINT CHR$(4);CHRS (27); "N°; 
PRINT CHR$(27);"A JEU DE LA VIE";CHR$ (4) 

REX Objet 
PRINT: PRINT: PRINT 
A$="D" ’Code couleur = Bleu 
PRINT"OBJET : "; 
60SUB 1600:PRINT'Evolution d’une population* 

REM Job 
PRINT:PRINT:PRINT 
A$="F" ’Code couleur = Cyan 
PRINT*J0B :*; 
60SUB 1600:PRINT"Vous allez voir vivre * 
60SUB 1600:PRINT" et aourir sous vos yeux une” 
60SUB 1600:PRINT* population de cellules ." 
6OSUB 1600:PRINT" Son evolution est dictee par" 
60SUB 1600:PRINT" les 3 lois suivantes :* 
60SUB 1600:PRINT* - Toute cellule entouree par* 
GOSUB 1600:PRINT" 2 ou 3 autres cellules survit." 
60SUB 1600:PRINT* - Si une cellule est entouree" 
G6OSUB 1600:PRINT" par 3 autres cellules ," 
6OSUB 1600:PRINT* une autre cellule nait .* 
GOSUB 1600:PRINT" - Toute cellule entouree par* 
GOSUB 1600:PRINT* 1,4 cellules ou plus seurt .* 
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REN Debut 

PRINT:PRINT: PRINT 

A$="C" Code couleur = Jaune 

PRINT"DEBUT :°; 

GOSUB 1600:PRINT"Pour coamencer ,appuyez sur" 

6OSUR 1600:PRINT" une touche quelconque ." 

GET A$ ‘Attente pour passage à l'acquisition des donnees 
LUXE CEE CA LETEEEEEEEE EEE EEE EEE ET ET EE EEE: 
REN Entree de la population 


CLS : 
PRINT CHR$(27);"L";CHR#(27); "84 FOPULATION DE DEFA 


PRINT: PRINT: PRINT: PRINT 

PRINT'"Vous allez introduire la generation de"; 
PRINT'depart en coordonnees K,Y {10 et 20)" 
PRINT 

PRINT"La derniere cellule entree aura les" 
FRINT'coor donnees 0,0 ." 

DIM T(10,10) : GENER=0 

PRINT: PRINT 

INPUT"X / Y'a, 

IF X+Y=0 THEN PRINT CHR$117):RETURN 

TU, Y21 "Definition d'une cellule 

60TO 1480 


1 REM DRADRNANIRNENNERSNANEARERESE TENTE 
REN Module de couleur d’une ligne 


PRINT CHR$(27);"H"3;CHRS (27); A8: 
RETURN 


LISE CCE CETECCTENTE TETE COTE TETE TEES 
REN Evolution de la vie 


PRINT: PRINT: PRINT 

PRINT"Appuyez sur une touche quelconque pour”; 
PRINT"visualiser la prochaine generation . 
GET A$:IF A$="F" THEN RETURN 

G0SUR 2190 ‘Calcul 

G60SUB 2400 "Affichage 

SOTE 2000 


2070 
2100 
2105 
2110 
2120 


2130 : 


2140 
2150 
2160 
2170 
2180 


2190 : 
2200 : 


2210 


2220 : 


2230 : 
2240 : 
2250 : 


2260 
2270 


2280 : 
2290 : 
2300 : 
2310 : 
2320 : 
2330 : 


2340 : 


2350 : 
1400 : 
2410 : 
2420 : 


2430 : 


2440 
2450 
2460 


2470 : 
7480 : 


2490 


2500 : 
2510 : 
2520 : 
2530 : 
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REN SHRANENNNENNNNNNNNNNNNNNNENNENTÉNNTINS 
REN Calcul de la generation suivante 
GENER=GENER+! 
FOR 1=2 108 
FOR J=2 T0 8 
R=0 
IF T{1-1,9-1)=1 THEN RER#I 
IF T{1-1,9)=1 THEN RER#I 
IF T{I-1,9+#1)=1 THEN R=R+1 
IF T(I,J-1)=1 THEN R=R+! 
IF T(1,9+1)=1 THEN R=R+1 
IF T(I#1,9-1)=1 THEN R=R+#I 
IF T{l#i,J)=1 THEN R=R# 
IF T(I#1,9#1)=1 THEN R=R+#1 
IF T(1,9)=1 THEN GOSUB 2250 ELSE GOSUB 2300 
NEXT J 
NEXT ! 
REM Nort d’une cellule 


IF RC>3 AND RÇ>2 THEN T(1,9)=0 
RETURN 


REN Naissance d’une cellule 


IF R=3 THEN T(1,))=1 
RETURN 


REM tétatintanantnnnennntinnttttttttantt 
REM Affichage 


CLS 
PRINT CHR$(27);"L";CHR$(27); "A GENERATION *;GENE 


PLOT 10,10," 23456789" 
FOR 1=1 TD 9 
PLOT 8,10+1,CHR$(I+48) 
NEXT I 
FOR 1=1 T0 9 
FOR J=1 T0 9 
IF T(1,9)<)0 THEN PLOT 8+241,10+J,"0" 
NEXT J 
NEYT I 
RETURN 
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— 
2550 : REN HENNANNNANINRTNNATSNTNRSRNNNSTETNISNNS | 


3000 : REM Fin du jeu 


FOR 1=1 10 9 
FOR J=1 TO 9 
B=8+T11,9) 
NEXT J 
NEXT ! 
CLS 
IF B=0 THEN PRINT"Populationn decisee en *;GENER;* generat 


IF BC)0 THEN PRINT"Fin du jeu a La ";GENER;" generation .” 
PRINT CHR${17) ’Restitution du curseur 
RETURN 


3130 : REN HRENANENSERNNNENTRTANNNATNENNANTTSEREER 
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Les unités anglo-saxonnes 
conversion 
en unités françaises 


PRESENTATION 
Un utilitaire simple et efficace. || regroupe les formules de conver- 
sion les plus couramment utilisées (longueur, surface, volume, poids, 
densité et pression). 
Ce programme convertit les unités anglaises en unités françaises. 
Son petit frère fait la conversion inverse. Seul le premier programme 
est décrit. 
ORGANIGRAMME DE L'UTILITAIRE : 
Le programme a La structure A. 


Il se déroule en deux temps : 


. Choix de la conversion, 


. Conversion et affichage. 


L'onganigramme est simple 
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LE PROGRAMME 


Choix 


Conversion 


Conversion 












Il se décompose en deux pavés : 


Présentation et 
initialisation 


Conversion 


Lignes 1000 à 2180 
Module de commande Lignes 1000 à 1060 


Présentation Lignes 1100 à 1650 
Initialisation des 
variables Lignes 1700 à 2180 


Stockage des unités anglaises, françaises, 
correspondances et coefficient de conversion. 


Lignes 3000 à 4340 

Module de conversion Lignes 3000 à 3070 
Choix conversion Lignes 3100 à 4120 
Conversion Lignes 4200 à 4340 


LES VARIABLES UTILISEES 


A$ 
l 
GB 
F 

R 

s 

r 
Ti$ 
T2$ 
T3$ 


Code couleur de la ligne 

Index de boucle 

Nombre à convertir 

Nombre converti 

Code de choix de la conversion 

Code de sous-choix de la conversion 
Tableau des coefficients de la conversion 
Tableau des unités GB 

Tableau des unités F 


Tableau des correspondances. 
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REN Les unites anglo-saxonnes Conversion 6B -> F 


60SUB 1000 * Presentation et Initialisation 
60SUB 3000 * Conversion 6B -) F 


END 
LIL CECELEE EEE TETE CE EEE CEE EEE EEE ES 
REM Presentation et Initialisation des variables 


60SUB 1100 Presentation 
60SUB 1700 ’Initialisation des variables 


RETURN 
REN tétttttittntntnntntnnntatttattnntnitttt 
REX Presentation 


INK 6 : PAPER 0 


REM Titre 


PRINT CHR$(12) 
PRINT CHR$(4);CHR$ (27); "N°"; 
PRINT CHR$(27); "A LES UNITES ANGLO-SAXONNES" ; CHR (4) 


REM Objet 


PRINT:PRINT: PRINT: PRINT: PRINT 

A$="D" ’Code couleur = Bleu 

PRINT"OBJET :°; 

60SUB 1600:PRINT'Conversion des unites * 

GOSUB 1600:PRINT" Anglaises en unites Francaises," 


REN Job 


PRINT:PRINT:PRINT 

A$="F" ’Code couleur = Cyan 

PRINT'JOB :"; 

GOSUB 1600:PRINT'Ce prograsae perset d'obtenir"; 
GOSUB 1600:PRINT" la conversion d’unites :" 
GOSUB 1600: PRINT" - de Longueur ," 

GOSUB 1600:PRINT" - de Surface ," 

60SUB 1600:PRINT" - de Voluse ,* 

GOSUB 1600:PRINT" - de Poids ," 

GOSUB 1600:PRINT" - de Densite ," 

GOSUB 1600:PRINT" - de Pression ,” 


REN Debut 
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1430 : 


1440 : PRINT: PRINT: PRINT 

1450 : A$="C" ’Code couleur = Jaune 

1460 : PRINT"DEBUT :"; 

1470 : 60SUB 1600:PRINT"Pour effectuer une conversion"; 


1480 : 60SUB 1600:PRINT" appuyez sur une touche-clavier" 
1490 : GET A$ ‘Attente de L’appui sur une touche 
1500 : 


1510 : RETURN 

1520 : REN HSNNNANSNNTERANNNNNANNANANTETNNNTTEE 
1600 : REM Couleur d’une ligne 

1610 : 

1620 : PRINT CHR$(27);"H"3;CHRS(27);A$; 

1630 : 

1640 : RETURN 

1650 : REN DRANNDANENNUNNENANTANNNNANATTENANTTT TE 
1700 : REN Initialisation des variables 

1710 : 

1720 : DIN T1$(17),12$(17),13$(17),T(17) ’Tableaux de constantes 
1730 : 

1740 : REM Unites Anglaises 


1750 : 

1760 : FOR 1=1 70 17 
1770 : READ T1$(1) 
1780 : NEXT ] 

1790 : 

1800 : REM Unites Francaises 
1810 : 

1820 : FOR 1=1 T0 17 
1830 : READ 72$(1) 
1840 : NEXT ! 

1850 : 

1860 : REM Correspondances 
1870 : 

1880 : FOR 1=1 TO 17 
1890 : READ T3$(1) 
1900 : NEXT ] 

1910 : 

1920 : REN Coefficients de conversion 
1930 : 

1940 : FOR 1=1 T0 17 
1950 : READ T(1) 

1960 : NEXT 1 

1970 : 


1980 DATA “Inches", "Foot", "Inches”2", "Foot"2","Inches*3";"Foot*3"," 
Gallon" 

1990 DATA “Pound”, "Ounce”, "Grain", "Lb/Ft*3","Lb/Inch*2", "BTU", *BTU" 
,"BTU" 

2000 DATA "BTU","F" 
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2010 : 
2020 DATA “ca","ca","ca"2","ca"2", "cas", "cas" "Litres" "gr","gr", 


gr 
2030 DATA "gr/ca"3","kg/ca"2", "Calories", "Joules","Knh","Hey","Celc 
ius” 

2040 : 

2050 DATA "1 Inch = 2,54 ca","{ Foot = 30.48 ca","{ Inch"2 = 6,45 € 
n°2" 

2060 DATA "{ Font*2 
2070 DATA "1 Foot*3 
2080 DATA "1 Pound = 4 
65 gr” 

2090 DATA "1 Lh/Ft°3 = g/ca"3","{ Pound/Inch"2 = 0,07 Kg/ca°2" 

2100 DATA "1 BTU = 256 Calories","1 BTU = {054,8 Joules" 

2110 DATA "1 BTU = 293.10*-4 Kuh","1 BTU = 6.59.10*-5 Mev","1 F = 1 
.BC + 32" 

2120 : 

2130 DATA 2.54,30,48,6.4516,929,16.387,28316.8,4,5435,453,5924,28,3 
495 

2140 DATA 0.064798,0,0.0703,252,1054.8,0.0293,6,59E-5, 1.8 

2150 : 

2160 : 

2170 : RETURN 

2180 : REM HHNNNANENNNENEERTENNNNNENEENATNNNERE 

3000 : REM Conversion 6B -> F 


929 cm2", "1 Inch°3 = 16.39 ca“3" 
28316.8 cn°3","1 Gallion = 4,54 Litres" 
53.59 gr","1 Ounce = 28.35 gr","t Grain = 0.0 


3010 


3020 CLS 


3030 6OSUB 3100 ‘Demande de conversion 

3040 :  GOSUB 4209 ’Conversion 

3050 : 

3060 : RETURN 

3070 : REM HHHNR NN NRATNNASANINTNATENNTANATETETIE 
3100 : REN Demande de conversion 

3110 : 

3120 :  GOSUB 1600:PRINT"Dois-je faire une conversion de :" 
3140 +  PRINT:PRINT 

3150 : PRINT" (1) Longueur" 

3160 : PRINT" (2) Surface" 

3170 : PRINT" (3) Volume" 

3180 : PRINT" (4) Poids” 

3190 : PRINT" (5) Densite”" 

3200 : PRINT" (6) Pression" 

3210 : PRINT" (7) Quantite de chaleur " 

3215 : PRINT" (8) Tesperature" 

3220 : 

3230 : PRINT:INPUT" Choix ";R 

3240 : 

3250 : IF RÇI OR R)8 THEN G0TD 3100 

3260 : ON R GOTO 3300,3409, 3500, 5600, 3700, 3800, 3900, 4000 








3300 : REX Longueur 

3310 : 

3320 : PRINT:PRINT"Je peux faire les conversions :" 
3330 : PRINT:PRINT" (1) "5 T1$01);" -) "5 T28(1);" et" 
3340 : PRINT" (2) ":11$(2);" -} ":12$(2) 

3350 : PRINT: INPUT" Choix";S 

3360 : R=S 

3370 : 6070 4100 

3380 : 

3400 : REN Surface 

3410 : 

3420 : PRINT:PRINT"Je peux faire les conversions :* 
3430 : PRINT:PRINT" (1) "3T1$(3)3;" -} *:T2${3);" et" 
3440: PRINT" (2) ";T1$(4);" -) *;T28(4) 

3450 : PRINT: INPUT"  Choix";5 

3460 : R=S+2 ’Nusero de la conversion 

3470 : 6070 4100 

3480 : 

3500 : REH Voluse 

3510 : 

3520 : PRINT:PRINT"Je peux faire les conversions :* 
3530 : PRINT:PRINT" . (1) ":T18(5);" -} *:T28(5) 
3549 : PRINT" (2) ":T1$(6);" -» ":12$(6);" et" 
3550 : PRINT" 13) "371$(7);" -} "5T28(7) 

3560 : PRINT:INPUT® Choix "35 

3570 : R=5+4 

3580 : 6070 4100 

3590 : 

3600 : REN Po ds 

3610 : 

3620 : PRINT:PRINT"Je peux faire les conversions :* 
3630 : PRINT:PRINT" (1) "3T18(8);" -> ";T2$(8) 
3640: PRINT" (2) ";11849);" -) *;728(9);" et" 
3650 : PRINT" (3) ":71$(10);" -} "3128010 

3660 : PRINT: INPUT" Choix "35 

3670 : R=S+7 

3686 : GOTO 4100 

3690 : 

3700 : REX Densite 

3710 : 

3720 : ‘ PRINT:PRINT'Je peux faire la conversion :" 
3730 : PRINT:PRINT" (1) ":T1$411);" -} "3T28(11) 
3740 : R=11:60T0 4100 
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REN Pression 


PRINT:PRINT"Je peux faire la conversion :" 
FRINT:PRINT" (1 "3T18(12);" -) *312$(12) 
R=12:60T0 4100 


REN Quantite de chaleur 


PRINT:PRINT"Je peux faire les conversions :" 
PRINT:PRINT® (1) ":T18(13);" -} °:124(13) 
PRINT" (2) "311$(14);" -»} ":T2$(14) 

PRINT" (3) "5T1$(15)5" -} ":728(15) 

PRINT" (4) “511$(16);" -} ":12$(16) 

PRINT: INPUT" Choix “:S 

R=S+12:G0T0 4100 


N 
=? 

N 
e? 


REN Teaperature 
PRINT:PRINT*Je peux faire la conversion :" 
PRINT:PRINT" (1) "3718(17)3" -} *312$(17) 
R=17 
RETURN 


LIT R LEE LE EEE EEE EEE TETE EEE TETE EEE EE CEE 


: REM Conversion 





CLS 

PRINT:PRINT: PRINT 

GOSUB 1600:PRINT"Foraule de conversion :" 
PRINT:60SUB 1600:PRINT T3$(R) 

PRINT: PRINT: PRINT 

PRINT"Donnez le noabre de ";T1$(R) 

INPUT 68 

F=6BIT(R) 

IF R=17 THEN F=F+32 


PRINT:PRINT:PRINT"Cela represente “;INT(FH1E7)/1E7: T2$(R) 


: RETURN 
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PROGRAMME DE CONVERSIONS DES UNITES FRANÇAISES ET 


10: 


UNITES ANGLO-SAXONNES 


REN Les Unites Anglo-Saxonnes / Conversion F -> 6B 


60SUB 1000 Presentation et Initialisation 
60SUB 3000 "Conversion 


RETURN 


OR LR CE CEE CCEECEEEE TENTE NCECCE CEE ETE ETS 
: REX Presentation et Initialisation 


6OSUB 1100 Presentation 
60SUB 1700 ’Initialisation 


RETURN 


+ REN étttttinttttntnnanttattnnntintadttttts 





REN Presentation 


PAPER © : INK 5 : PRINT CHR$(17) 
REN Titre 


PRINT CHRS (12) 
PRINT CHRS (4) ;CHRS 127) "N°3 
PRINT CHRS(27);"A LES UNITES ANGLO-SAXONNES";CHRS (4 


REM Objet 


PRINT: PRINT: PRINT: PRINT 

A$="D" ’Code couleur = Bleu 

PRINT'OBJET :"; 

60SUB 1600:PRINT'Conversion des unites" 

GO0SUB 1600:PRINT" Francaises en unites Anglaises." 


REM Job 


PRINT:PRINT: PRINT 

A$="F" Code couleur = Cyan 

PRINT"JOB :°; 

6OSUB 1600:PRINT"Ce prograase permet d'obtenir"; 
GOSUB 1600:PRINT" la conversion d'unites :" 
PRINT:GOSUR 1600:PRINT" - de longueur," 
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1350 GOSUB 1600:PRINT" - de surface," 

1360 : GOSUB 1600:PRINT" - de voluae," 
1370 : GOSUB 1600:PRINT" - de poids," 

1380 : 6OSUB 1600:PRINT" - de densite," 
1390 :  GOSUB 1600:PRINT" - de pression," 
1400 : 60SUB 1600:PRINT" - de teaperature." 
1410 : 

1420 : REN Debut 

1430 : 


1440 : PRINT: PRINT: PRINT 

1450 : A$="C" ’Code couleur = Jaune 

1460 : PRINT*DEBUT :"; 

1470 : 60SUB 1600:PRINT"Pour commencer , appuyez sur“ 


1480 60SUB 1600:PRINT" une touche quelconque." 
1490 : 6ET A$ ‘Attente de l'appui sur une touche 
1500 : 


1510 : RETURN 

RP ORERT2RE LECCCCEE CCF CE LEE CEE CEE CE CCE CE EE CEE 
1600 : REN Couleur d’une ligne 

1610 : 

1620 : PRINT CHR$(27);"H";CHRS (27); AS; 

1630 : 

1640 : RETURN 

1650 : REN ANGDRRTNRNNRENA NRA RNNNTAATATIANAANIT 
1700 : REN Initialisation des constantes 


1710 : 

1720 : DIM T18(17),T2$(17),13$(17),T(17) 
1730 : 

1740 : REN Unites Francaises 
1750 : 

1760 : FOR 1=1 TO 17 

1770 : READ T1$(1) 

1780 : NEXT 1 

1790 : 

1800 : REN Unites Anglaises 
1810 : 

1820 : FOR 1=1 T0 17 

1830 : READ T2$(1) 

1840 : NEXT 1 

1850 : 

1860 : REN Correspondances 
1870 : 


1880 : FOR 1=1 70 17 
1890 : READ T3$41) 
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1920 DATA "ca","ca","ca"2","ca"2","ca*3",ca"3" "litres" ,"gr"."gr"," 
gr" 
1930 DATA "gr/cm"3","Kg/ca"2", "Calories", "Joules",“Knh","Mev","Celc 
jus" 


1940 : 

1950 DATA "inches", "foot", "inches"2","foot*2","inches*3", "foot 3", * 
gallon* 

1960 DATA “pound”, “ounce", "grain", "Lb/ft"3","Lb/inch"2", "RTU",*BTU" 
1970 DATA "BTU", 'BTU","F" 

1980 : 

1990 DATA "1 ce = 0.394 inch","{ cn = 0,0328 foot","{ cm2 = Ü.155 
inch*2" 

2000 DATA “1 ca*2 = 1.08 E3 foot”"2","1 cm3 = 6,1 E-2 inch*3" 

2010 DATA "1 ca“3 = 3,53 E-5 foot*3","1 litre = 0.220 Gallon" 

2020 DATA "1 gr = 2.204682 E-3 pound",,,"t gr/cm"3 = 1.6 E2 1b/ft"3" 
2030 DATA “1 Kg/ca"2 = 14,2 1b/inch"2","1 Calorie = 3.97 E-3 BTU" 
2640 DATA “1 Joule = 9,49 E-4 BTU","1 Kwh = 3417 RTU","I eV = 1,52 
E-16 BTU* 

2030 DATA "1 Celcius = 5/9 (F - 32)" 


2060 : 

2070 : REN Coefficients de conversion 

2080 : 

2090 : FOR 1=1 TO 17 

21090 : READ T(1) 

2110 : NEXT ! 

2120 : 

2130 DATA 0.394,0.0328,0.195,1.08E3,6.1E-2,3.93E-5,0.22,2,20462E-3 
2140 DATA 0,0,1.6E2,14.214,3,97E-3,9,49E-4,3417,1.52E-16,, 555980 


2150 
2160 
2170 
3000 
3010 
3020 
3030 
3040 
3050 : RETURN 

3080 : REN HÉDANENTRDRERANNNNNNNANNENTNTANELETTS 
3100 : REN Initialisation de La conversion 


RETURN 
COUR CELL EEE CCE TETE CECETETENTECENTET ES 
REN Initialisation de La conversion et Conversion 


60SUB 3100 ’Initialisation de la conversion 
60SUB 4100 ‘Conversion 


3110 
3120 CLS : PRINT CHR$(17) 
3130 PRINT: PRINT 


3150 PRINT:PRINT" (1) Longueur” 
3160 PRINT" (2) Surface" 


3140 :  GOSUB 1600:PRINT'Desirez-vous faire une conversion de:" 
3170 : 


PRINT" (3) Voluse" 


3180 : 
3190 : 
3200 : 
3210 : 
3215 : 
3220 : 
°3230 : 
3235 : 
3240 : 
3250 : 
3260 : 
3270 : 
3280 : 
3300 : 
3310 : 
3320 : 
3330 
3340 : 
3350 : 
3360 : 
3370 : 
3380 : 
3400 
3410 : 
3420 : 
3430 : 
3440 : 
3450 : 
3460 
3470 : 
3480 
3500 
3510 
3520 : 
3530 
3540 : 
3550 : 
3560 : 
3570 : 
3580 : 
3600 : 
3610 : 
3620 : 
3630 : 
3640 : 
3650 : 
3660 :* 
3670 : 
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PRINT" (4) Poids” 

PRINT" (5) Densite" 

PRINT" (6) Pression" 

PRINT" (7) Quantite de chaleur" 
PRINT" (8) Tesperature” 


PRINT:PRINT: INPUT "Choix: "3R:PRINT:PRINT: PRINT: PRINT 
IF RCI OR R)8 THEN PRINT" 1(Choix(8":60T0 3230 


ON R 60SUB 3300, 3400,3300, 3600, 3700, 3800, 3900, 4000 


RETURN 
LITRES LOPEELEEELETE EEE CEE TELE CELL EEE EEE 
REN Conversion de longueur 


GOSUB 1600:PRINT"Je peux faire les conversions: " 
PRINT:PRINT" (1) cm -} inches et" 

PRINT" (2) ca -} foot ." 

PRINT: INPUT* Choix "3R 

S=R:RETURN 


LUE CECE CEE EE TEE CEE EEE EEE TETE TEE EE CETTE 
REN Conversion de surface 


GOSUB 1600:PRINT"Je peux faire les conversions:" 
PRINT:PRINT" (1) ca”2 -) inches”2" 

PRINT" (2) ca*2 -} foot*2" 

PRINT: INPUT" Choix "5R 

S=R+2:RETURN 


LIRE CECELE EC EE EEE EEE ENTRE TEE EE EEE TEE 
REM Conversion de volume 


GOSUB 1600:PRINT ‘Je peux faire les conversions!" 
PRINT:PRINT" (1) ca*3 -} inches"3" 

PRINT" (2) ce*3 -} foot”3" 

PRINT: INPUT Choix "3R 

S=R+4:RETURN 


CLR LCEE CEE EEEECEE EEE CETTE TEE EE EE) 
REM Conversion de poids 


60SUB 1600:PRINT"Je peux faire les conversions:" 
PRINT:PRINT" (1) gr -> pound" 

PRINT" (2) gr -> ounce" 

PRINT" (3) gr -} grain" 

PRINT: INPUT" Choix "5R 

S=R+6:RETURN 
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GILELOEEE CEE EEE TEE EEE ET EEE TENTE TETE ETES: 


: REN Conversion de densite 


GOSUB 1600:PRINT'Je peux faire La conversion!" 
PRINT:PRINT"  gr/ca*3 -> Lb/ft*3" 

GET B$ 

$=11:RETURN 


LINE CE CRETE CES CORTE TT EE TETE TETE EEE CETTE 
: REM Conversion de pression 


6OSUB 1600:PRINT'Je peux faire La conversion:" 
PRINT:FRINT"  Kg/ca*2 -> Lo/inch°2" 

GET B$ 

5=12:RETURN 


OREN RÉRENANEERENNNNREERNNENATETEREENARTEET 


REN Conversion de quantite de chaleur 


GOSUB 1600:PRINT"Je peux faire les conversions!" 
PRINT:PRINT:PRINT" (1) Calories -> BTU" 
PRINT" (2) dJoules -> BTU" 

PRINT" (3) Kuh -} BTU" 

PRINT" (4) MeV -} BTU" 

PRINT: ENPUT"Choix ";R 

S=124R:RETURN 


ERA TR CEE CE CEE UT ETC EE TE TETE ETTETEE EEE CEE EE) 


REM Conversion de temperature 


G60SUB 1600:PRINT'Je peux faire la conversion:" 
PRINT:PRINT"  Celcius -> Farenheit" 
S=17:6ET B$:RETURN 


1 REN HÉRNEENENNNSTERSNEENEENARERSANENETTNT 


REM Conversion 


CLS : INK 6 

60SUB 1600:PRINT"Formule de conversion :" 
PRINT:PRINT:PRINT T3$(5) 

PRINT: PRINT:PRINT:PRINT" Nombre de ";T1$(S);: INPUT F 
GB=F#T(S):1F S=17 THEN GB=6B-17.777777 
PRINT:PRINT:PRINT "Cela represente "3 INT(GBY1ES)/1E5512$(S 


RETURN 





L'ORIC LE SON 
ET LE DESSIN 
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Oric piano 


PRESENTATION 
Vous jouez du piano ? Non ? Alors il est temps de vous y mettre ! 


Ce programme simule le clavier d'un piano (malheureusement à une 
seule octave). Les touches du clavier reprennent la disposition des tons 
et demi-tons d'un clavier de piano. Les notes et leur correspondant - 
touche sont indiqués en haut de l'écran en haute résolution. 


Musiciens, à vos claviers. 


ORGANIGRAMME DU PROGRAMME 


Le programme a £a structure A. 


L'organigramme de présentation est donné, car il ne ressemble pas 
aux autres organigrammes de présentation. 


Présentation 


Elle consiste en l'affichage (en haute résolution) d'une portée, de la 
clé de Sol, et des notes avec leur correspondant-iettre. 
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Lecture 
des donnees 


Affichage 
des données 













OricPiano 


Le programme de jeu consiste en une attente de frappe de touche 
clavier. La touche "SPACE" commande la sortie du programme. 


Les touches-notes commandent le canal son n° 1 de l'ORIC grâce à 
l'ordre BASIC "Music a, b, c, d" avec : 
: canal 
: octave 


: note 


à 0 © © 


: volume 
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LE PROGRAMME 


Il se décompose en trois pavés : 


Présentation et 
initiatisation 


ORIC joue 


Fin du jeu 


Lignes 1000 à 1980 
Acquisition et affichage clé, portée, notes et 
correspondants-touches. 


Lignes 2000 à 2150 
Activation du canal 1 par MUSIC 


Lignes 3000 à 3080 
Restitution du curseur et commentaires. 


LES VARIABLES UTILISEES 


A 
B 
B$ 
! 

T 


Donnée lue (clé, note, titre) 

Donnée lue (touche-note) puis attribut sonore 
Touche-note actionnée 

Index de boucle 


Tableau des attributs sonores (paramètre de 
MUSIC pour activer telle ou telle note). 


BOITE A OUTILS POUR ORIC 1 ET ATNOS / 109 


REN ORIC-PIANO 


60SUB 1000 ’Presentation et Initialisation 
60SUB 2000 ’ORIC joue 
GOSUB 3000 ’Fin du jeu 


END 
REN tttttntannnatennnntannntanntattnanttt 
REX Affichage Presentation 


REN Cle de Sol 


FOR 1=0 TO 15 
READ À : POKE 46464+1,A 
NEXT I 


REN Notes 


FOR 1=0 TO 23 
READ À : POKE 46480+1,A 
NEXT ! 


REN Titre 


HIRES : INK 6 : PRINT CHRS(17) 
CURSET 50,10,0 
FOR 1=1 T0 13 
READ À : CHAR A,0,1 
CURSET 5041410, 10,0 
NENT ! 


REM Placeaent Cle et Notes 


CURSET 33,44,0 
CHAR 48,0,1 
CURSET 33,52, 0 
CHAR 49,0,1 
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1380 : 
1390 : 
1400 : 
1420 : 
1430 : 
1440 : 
1450 : 
1460 : 
1470 : 
1480 : 
1490 : 
1500 : 
1510 : 
1520 : 
1530 : 
1540 : 
1550 : 
1555 : 
1560 : 
1570 : 
1580 : 
1590 : 
1600 : 
1610 : 
1620 : 
1630 : 
1840 : 
1650 : 
1660 : 
1670 
1680 
1890 
1700 
1710 
1720 
1730 
1740 
1750 : 
1760 : 
1770 : 
1780 : 
1790 : 
1800 : 





CURSET 45,58,0:CHAR 51,0, 1:CURSET 45,50,0:CHAR 52,0,1 
CURSET 55,81,0:CHAR 35,0, 1 

CURSET 60,58,0:CHAR 51,0, 1:CURSET 40,50,0:CHAR 52,0,1 
CURSET 75,56,0:CHAR 50,0, 1:CURSET 75,48,0:CHAR 52,0, 1 
CURSET 85,59,0:CHAR 35,0,1 

CURSET 90,56,0:CHAR 50,0, 1:CURSET 90,48,0:CHAR 52,0, 1 
CURSET100, 54,0:CHAR 51,0, 1:CURSET100, 46, 0:CHAR 52,0, 1 
CURSET 110,52,0:CHAR 50,0, 1:CURSET 110,44,0:CHAR 52,0, 1 
CURSET 120,55, 0:CHAR 35,0, 1 

CURSET 125,52,0:CHAR 50,0, 1:CURSET 125,44,0:CHAR 52,0, 1 
CURSET 135,50,0:CHAR 51,0, 1:CURSET 135,42,0:CHAR 52,0, 1 
CURSET 145,53,0:CHAR 35,0, 1 

CURSET 150,50, 0:CHAR 51,0, 1:CURSET 150,42,0:CHAR 52,0, 1 
CURSET 160,48,0:CHAR 50,0, 1:CURSET 160,40,0:CHAR 52,0, 1 
CURSET 170,51,0:CHAR 35,0, 1 

CURSET 175,48,0:CHAR 50,0, 1:CURSET 175,40,0:CHAR 52,0, 1 
CURSET 185,46,0:CHAR 51,0, 1:CURSET 185,38,0:CHAR 52,0, 1 


REN Portee 


FOR 1=1 105 
CURSET 40,40+184,1 
DRAM 155,0,1 

NET ! 


REN Designation des Touches-Notes 
FOR 1=1 T0 12 
READ A,B 
CURSET 4,70,0 
CHAR B,0,1 
NEXT I 


FOR 1=1 70 34 
READ À 
CURSET 146+20, 140,0 
CHAR A,0,1 

NEXT 1 

FOR 1=1 T0 32 
READ À 
CURSET 1#6+20, 160,0 
CHAR A,0,1 

NEXT 1 


1810 : RETURN 
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1820 : REN HHDANENSETRNENNRENREUENAN EE EEEENNTETÉ 
1830 : REN Donnees de l’initialisation 

1840 : 

1900 DATA 0,0,12,10,10,10,12,24,28,42,42,28,8,40,24,0 

1910 DATA 63,4,4,4,63,28,28,28,4,4,63,4,4,28,63,28,0,0,4,4,4,4,4,4 

1920 DATA 79,82,73,67,32,77,85,83,73,67,73,49,78 

1930 DATA 45,65,58,87,75,83,88,69,100,68,110,70,123,84 

1940 DATA 135,71,148,89,160,72,173,85,185,74 

1950 DATA 80,111,117,114,32,106,111,117,101,114,44,97,112,112,117,1 
21,101 

1960 DATA 122,32,115,117,114,32,108,101,115,32,116,111,117,99,104,! 
01,115 

1970 DATA 99,111,114,114,101,115,112,111,110,100,97,110,116,32,97,1 
17,120 

1980 DATA 32,410,111,116,101,115,32,100,101,115,105,114,101, 101,115 
2000 : REM ORIC joue 


2010 : 
2015 : DIM T(25) 

2029 FOR 1=1 TO 25 
2030 READ A:T{TI=A 
2040 : NEXTI 


2045 
2050 : 
2060 
2070 
2080 
2090 
2100 : 
2110 : 
2120 
2130 : 

2140 : RETURN 

2150 : REM HÉDRRNRDNRNIRSE TEEN ENNENENAERENEEENTT 

2990 DATA 1,0,0,5,4,6,8,10,9,12,0,0,0,0,0,0,0,0,3,7,11,0,2,0,4 
3000 : REN Fin du progranse 

3010 : 

3020 : PLAY 0,0,0,0 

3030 PRINT CHR$(6) 

3040 : PRINT CHR#(17) 

3050 : LORES O:CLS 

3060 :  PLOT 08,10," Au revoir et à bientot" 

3070 

3080 : RETURN 


PRINT CHR$(b) ’Curseur muet 


GET B$ 
IF B$=" " THEN RETURN 
B=T(ASCIBS)-64) 

1F BC)0 THEN MUSIC 1,5,B,7 


G60TO 2070 
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Oric joue 


PRESENTATION 


Outre les quatre commandes sonores préprogrammées, ORIC possède 
des ordres sonores très sophistiqués. 


Les trois programmes qui suivent, mettent en oeuvre deux de ces 
ordres MUSIC et PLAY. 


Avant d'entrer dans le détail de chaque programme, examinons de 
plus près ces deux commandes. 
MUSIC  : Possède 4 arguments : canal, octave, note, volume 
Par la suite : 
e Canal sonore est validé : canal = 1 


e Le volume est mis à 0 pour pouvoir être commandé 
par l'enveloppe choisie : volume = 0 


e L'octave et la note varient au rythme du morceau 
PLAY : Possède 4 arguments : validation canaux musicaux, 
validation canaux de bruit, 
type d'enveloppe et durée d'enve- 
loppe. 
Par la suite : 
e Aucun canal de bruit n'est utilisé : 
validation canaux de bruit = 0 
e Le type d'enveloppe est fixé : 
type d'enveloppe = 0 ou 1 
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@ La validation des canaux musicaux est fixée : 
validation des canaux musicaux = 1 


e La durée de l'enveloppe est fonction du morceau. 


LE PROGRAMME 


Décrivons la façon de procéder dans chaque programme : (POP CORN, 
CHARLOT et CLASSIQUE). 


Tout d'abord, ces trois programmes possèdent un tronc commun : leur 
structure. Cette structure comporte deux étapes : 


e La lecture des données (Note/Octave/Validation canaux musicaux ou 
Durée de pause entre 2 notes) jusqu'à la fin du morceau. 


e Activation des ordres MUSIC et PLAY. 


Pour les programmes POP CORN'"' et "CHARLOT", la donnée C com- 
mande le temps de pause entre 2 notes et la durée de l'enveloppe. 


Pour le programme "CLASSIQUE", la donnée C commande le temps 
de pause entre 2 notes. La durée de l'enveloppe est fixe. 
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5 REN Pop corn 
! FOR 1=1 T0 74 
; READ A,B,C 
IF C=7 THEN D=4000 ELSE D=600 
HUSIC 1,B,A,0 
PLAY C,0,1,D 
IF C=1 THEN WAIT 20 ELSE MAIT 100 
IF 157 OR 1=14 OR 1=29 OR 1=45 OR 1=52 OR 1=59 THEN WAIT 


:  NEXTI 
: END 
2 RENNttRtettNNnnttanntnntantttatttttt 

1000 DATA 5,4,1,3,4,1,5,4,1,12,3,1,8,3,1,12,3,1,5,3,1,5,4,1,3,4,1,5 

4,1 

RTS 

1010 DATA 12,3,1,8,3,1,12,3,1,5,3,1,5,4,1,7,4,1,8,4,1,7,4,1,8,4,1,5 

4,1 

17 

1020 DATA 7,4,1,5,4,1,7,4,1,3,4,1,5,4,1,3,4,1,5,4,1,1,4, 

1030 DATA 8,4,7,5,4,7,12,3,7,8,4,1,10,4,1,12,4,7,10, 

1040 DATA 8,4,7,5,4,7,12,3,7,8,4,1,10,4,1,12,4,7,10, 
3 


1,4 
4,7 
4,7, 
1050 DATA 554,1,3,4,1,5,4,1,12,3,1,8,3,1,12,3,1,5,3,1,5, 
4,1 

LA) 

1060 DATA 12,5,1,8,3,1,12,3,1,5,5,1,5,4,1,7,4,1,8,4,1,7,4,1,8,4,1,5 
4,1 

ss 

1070 DATA 7,4,1,5,4,1,7,4,1,3,4,1,5,4,1,3,4,1,5,4,1,1,4,1,5,4,1 
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REN Charlot 


FOR 1=1 T0 76 
READ A,B,C 
IF C=7 THEN D=1800:MAIT 5 ELSE D=600 
MUSIC 1,B,A,0 
PLAY 1,0,1,D 
IF C=7 THEN NAIT 18 


233 OR 1=37 THEN MAIT 50 
=74 THEN WAIT 50 


130 © REM MARRRAESNENAENNARENRNMMANNTTENREEENS 

1000 DATA 5,4,1,1,4,1,8,8,05,3511,3,1,5,3,1,8,3,1,5,3,1,8,3,1,10, 

3,7 

1010 DATA 5,3,1,8,31,5,41,1,8,1,8,3,1,5,3,1,1,8,1,5,3,1,8,3,1,5,3 
l 
4 

1020 DATA 8,3,1,1,4,1,12,3,1,3,4,1,1,4,1,5,4,1,8,4,7,5,4,1,1,4,1,5, 

4, 

1030 DATA 1,4,1,8,3,7,10,8,1,5,4,1,8,4,7,5,4,1,1,4,1,5,4,1,1,4,1,8, 

3,1 

1940 DATA 1,4, 
1050 DATA 5,4, 

3,7 

1080 DATA 5,3,1,881,5811,41,831,8,31,1,3,1,5,3,1,8,3,1,5,3 
1 

y 

1970 DATA 8,3,1,1,4,1,12,8,1,3,4,1,1,4,1,8,3,1,8,3,1,8,3,1,9,3,1,8, 

3,1 


1080 DATA 8,3,1,1,4,1 


2,3,1,1,4,1 


1,1,4,1,1 
1,1,8,1,8,3,1,581108188183,15,3,1,8,3,1,10, 


Î, 
l 


st 
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REX Classi que 


FOR 1=1 T0 73 
READ A,B,C 
MUSIC 1,B,A,0 
PLAY 1,0,0,600 
MAIT 15 
IF C=1 THEN AIT 14 
MENT 1 


: END 
120: REM ARORASRSNNENRRNNNNRNNNNAENNMNENNNNNTEt 
1000 DATA 1,3,1,6,3,2,5,3,2,6,3,1,1,3,1,8,3,1,1,3,1,9,3,1,6,3,1,11, 
3,1 
1010 DATA 6,3,1,1,4,1,6,3,1,2,4,1,6,3,1,5,3,2,6,3,2,8,3,2,5,3,2,1,3 


1 

3 

1020 DATA 1,4,2,11,3,2,10,3,2,11,3,2,1,4,2,10,3,2,6,3,2,8,3,2,10,3, 
2 

1030 DATA 6,3,2,4,3,1,2,3,2,1,3,2,2,3,1,11,3,2,9,3,2,8,3,2,9,3,2,11 
4040 DATA 8,3,2,4,3,2,6,3,2,8,3,2,4,3,2,2,3,1,1,3,2,11,2,2,1,3,1 
1050 DATA 9,3,2,8,3,2,6,3,2,8,3,2,9,3,2,6,3,2,2,3,2,4,3,2,6,3,2,2,3 


2 

L 

1080 DATA 1,3,1,11,2,2,10,2,2,11,2,1,2,3,1,1,3,1,6,3,1,5,3,2,6,3,2 
1970 DATA 8,3,2,5,3,2,5,3,1,6,3,2,5,3,2,8,3,2 
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Le chien 


PRESENTATION 


Ce programme réalise le dessin d'un chien sur une imprimante 80 
colonnes en basse résolution, grâce aux lettres de l'alphabet. Plusieurs 
lettres sont utilisées afin d'obtenir différents contrastes. 


ORGANIGRAMME DU PROGRAMME : 


Le programme possède une structure linéaire. || consiste en une 
suite d'ordres d'impression "LPRINT". 
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10 LPRINT SPC (18) "NMNMA" 

20 LPRINT SPC{17) "MANINAMMN 

30 LPRINT SPC(16) "MMM I IAMMAMNN" 

40 LPRINT SPCU14) "AMNMMNI I IAAMAMAANN" 


, 50 LPRINT SPC (12) "MAMVVUMNI I INVVMNI TMMN* 


80 LPRINT SPC (10) "AMMVVVVVVVVI VV VNMNVTANN" 

70 LPRINT SPC (9) "A, , VVVUVVWUVVUVVVMMNVL I VNN" 

80 LPRINT SPC(9) "HUMAUUUVVUVUUUV  HNMNVIVUMN® 

90 LPRINT SPC(9)"MVMMMV  VUVUVVUNANMANUUVUNNN" 

100 LPRINT SPC(8) "MUVIMAVVANYU NH VA HANMAVUVAVMN® 

110 LPRINT SPC(7)"MNMVVIMVN HN NH VU--VUVAUVUNVNNN® 

120 LPRINT SPC (7) "MVVYLVVNA--MMAMNNVVVVVMUVURANMNN * 

130 LPRINT * MUVUVLIVMANUVNN  HAVVUNVUVAUAVAN" 
140 LPRINT * MUNVEMMVVUUUNN  NAVVNVUVUNNUNN" 
150 LPRINT * HMHVVLINE LVVMAUVVMMNNUNT VUMAU UN" 

160 LPRINT * MIMAVVLINIVVL LTMMMMN I IVNIVVNVVN® 

170 LPRINT * MIMMAVVINUVV IHN MMA IVMUVUNVNN" 

180 LPRINT * MELMUVIINV MMMMN VAN VVNNN" 

190 LPRINT * MIMVVVINUV VUMMNMV UN VUNNN" 

200 LPRINT * MIMVVLIMUVUMMMNNNUUN  VHN® 

210 LPRINT SPC(9)"MMVMVIMNITIMNMNUUV  Vn* 

220 LPRINT SPC(10) "MMMVINMNNMMAMMNNIN  V* 

230 LPRINT SPCULI) "AMI MMMVVVILTMI, MN" 

240 LPRINT SPC(11) "ME ,MNNA VVMN, MMM" 

250 LPRINT SPC(12)°N  IAVANMAMN, ANMN 

260 LPRINT SPC (14) "MIVUVYVV? IHMMNNN* 

270 LPRINT SPCU13) AMV, IVVVIT, MHMMMMN® 

280 LPRINT SPC(12)"MMVWV,,, , , VUNANMNNNN" 

290 LPRINT SPC (12) "NUVYVVK-HUVUVVANNNKN" 

300 LPRINT SPC(11)"MMVILIVITVITIUVANMNNN" 

310 LPRINT SPC(11) "MUVILIITIIVIVVMNNNNNN" 

320 LPRINT SPC (10) "MMVVLII LE IVIT IVMMNMAKKK" 

330 LPRINT SPC (10) *MYVVVII I IVVITT IVMMMANVNN" 

340 LPRINT SPC (10) "MAVVVITTMNII I IVVMMMMMUNN 

350 LPRINT SPC (10) "MMIVEIVIVNNIL LT IVMMMNUNNN" 

360 LPRINT SPC (10) "HMIVLIVI MMA LTUvMMMNUUU 

370 LPRINT SPC(10) "MMMILIVIVVMNII I IVVVMUVUVN" 

380 LPRINT SPC(9)"MMMMILVVI IVMMVI III TUNVVVVAN" 

390 LPRINT SPC (9) "MMMNIIVVI IUNVVI I IUVVANUVVMMMNN" 

400 LPRINT SPC (9) "MMVMMIVVVIMMI I I II IVVVAVVUNMMNNN* 

410 LPRINT SPC (8) *MMMVVMMVUVIMULI 1 1 IVVVVYVVNMUVUMNN" 
420 LPRINT SPC (8) "MAMVVVMUVVMMUV I IL TVVMU VUE VU UVANN" 
430 LPRINT SPC (8) *AMMYVVMNAUNVVV L EU VMMUVUUNUVUUMNNN" 
440 LPRINT SPC (8) "HAVVVVVVMMUVUL I IT TMMUVVVMNUV VU VAN" 
450 LPRINT SPC (8) "AUVVIVUV MUVVLI LL TMVVUVYMUUUUVAKKN" 
460 LPRINT SPC(7)"MNUVIIW  VVVIIILINMUVVVUNUUUVNNNKKK® 
470 LPRINT SPCU7)"MMVLIVV  VUVLILT INMUVANUNUNVUNNNNNN" 
480 LPRINT * MAVLLIWV  VVWVI LL IHMNVMMMMNUNVUVAMNNN 
490 LPRINT * MUVLIVY  VUVVI IL TNAMANMANMNMNNUVUNNN 
500 LPRINT * MVILIV  VUVVL I TAMMMMMMNNNNNNANNUNNN 
S10 LPRINT * MAILLIV  MULLLEL TNAMNNNNNANNNNNANNNN 
320 LPRINT * MELIIV  MMVLITIVAMAMMMMANNNUUVANNNNN 


L" 
L° 
u* 

ALL" 

HLL® 


330 LPRINT * MLZIVV  MILIIVUVANMAMMANNNUUUVVMNNNN HAL" 
340 LPRINT * LAMMMNIV MALI IVVVMMMMANMMANU VU VU VVMNMMMMNNNL L * 


350 LPRANT * LUIIIVVUV MMMIIVVVNAMMNNN  VUVUYVVNMMNMMMML. 


L" 


560 LPRINT "LUMVVVIIV  LHNVVYVUNMNN VVAVUNVVANNNNMNNN" 


570 LPRINT "LAMVMYMIVUVUI I EUUV LULU... 
580 LPRINT *  VNUM VUNIVUVUUV LU 

590 LPRINT SPC (10) *NIMVVWV" 

600 LPRINT SPC (12) "AV" 





UTILITAIRE 
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L'oric et l'alphabet 


PRESENTATION 


Lors de la création d'un programme, vous pouvez être amené à défi- 
nir des caractères n'existant pas dans l'ensemble des caractères stan- 
dard de LORES 0 et LORES 1 


ORIC permet la redéfinition de son jeu de caractères basse résolution. 


Ce programme, un peu limité permet la redéfinition de tous les carac- 
tères LORES 0 appartenant au clavier. 


Un caractère est défini dans une grille 8 lignes, 6 colonnes. Chaque 
case de cette grille constitue un point élémentaire (ou pixel) qui peut 
être allumé ou éteint. Le caractère étant redéfini, il suffit de l'affec- 
ter à une lettre quelconque. Par la suite, cette lettre sera systémati- 
quement remplacée par le caractère redéfini. 


Pour revenir au jeu de caractères standard, deux solutions s'offrent 
à vous : 
Débrancher ORIC puis le rebrancher. 


Exécuter la routine d'initialisation des caractères LORES X en action- 
nant l'interrupteur RESET placé sous l'ORIC. 


ORGANIGRAMME DE L'UTILITAIRE 


Le programme a La structure A. 


Le module principal consiste en une série de tests sur les touches du 
clavier. 
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e Les quatre touches de déplacement (droite, gauche, haut, bas) per- 
mettent de se déplacer sur la grille caractère. 


e Les touches P et V servent (respectivement) à allumer (caractère 
plein) ou éteindre (caractère vide) le pixel courant. 


e La touche "RETURN" fait prendre en compte le caractère redéfini. 
(voir organigramme page suivante) 


LE PROGRAMME 


I! se décompose en trois pavés : 


Initialisation Lignes 1000 à 1730 
Module de commande Lignes 1000 à 1070 
Présentation Lignes 1100 à 1420 
Affichage grille Lignes 1500 à 1595 
Init. curseur Lignes 1600 à 1650 

Traitement Lignes 2000 à 2500 
Module de commande Lignes 2000 à 2110 
Déplacement  —— Lignes 2200 à 2250 
Déplacement — Lignes 2250 à 2290 
Déplacement | Lignes 2300 à 2340 
Déplacement | Lignes 2350 à 2390 
Caract. plein Lignes 2400 à 2440 
Caract. vide Lignes 2450 à 2500 

Modification 

caractère Lignes 3000 à 3110 


Modification d'un des caractères clavier par le 
caractère que l'on vient de définir. 


LES VARIABLES UTILISEES 


A$ Code couleur de ligne 

B Code ASCII du caractère à modifier 

B$ Caractère à modifier 

BAS Position verticale dans la grille caractère 
DROITE Position horizontale dans la grille caractère 
1, J Compteurs de boucles 


T Tableau image de la grille. 
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Le module principal a donc £a structure suivante : 


Alphabet 


out 


Déplacement a droite 


os Déplacement vers Le haut 


oui 


Déplacement à gauche 


(a) 


Déplacement vers le bas 


Allumage pixel 


Extinction pixel 


(a) 


out 


oui 


out 


#0-0240 


o 
€, 
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REM ORIC et l'alphabet 


60SUB 1000 ’Initialisation 

60SUB 2000 ’Traitesent 

6OSUB 3000 ‘Modification caractere 
END 


LEA RE CETEE EEE CENTER EEE TE TEE EE EST EEE EEE ES 
REN Module d’initialisation et d'affichage 


60SUB 1100 ’AfFichage senu 
60SUB 1500 Affichage grille 
60SUB 1600 ’Init. curseur 
RETURN 


ELLE LOL LUE COR EU TE TENTE ENTER CET EEE E EN 
REN Module d'affichage du senu 


PAPER O:INK 5 
REN Titre 
PRINT CHR$(12) 
PRINT CHR$(4);CHRS (27); "N°; 
PRINT CHR$(27);"A ORIC ET L'ALPHABET":CHR$ (4) 
REM Objet 
PRINT:PRINT: PRINT 
A$="D" ’Code couleur = Bleu 
PRINT'OBJET : "; 
GOSUB 1700:PRINT'Modification des caracteres" 
GOSUB 1700:PRINT" standard de }’ORIC* 
REM Job 
PRINT:PRINT 
A$="F" Code couleur = Cyan 
PRINT"J0B :"; 
GOSUB 1700:PRINT'Les caracteres sont definis* 
GOSUB 1700:PRINT" dans une grille 8 $ 6" 
GOSUB 1700:PRINT" pixels . Chaque pixel peut" 
60SUB 1700:PRINT" etre plein (Cosmande P)" 
GOSUB 1700:PRINT* ou vide {Comsande Vi ." 
GOSUB 1700:PRINT" Les deplacesents se font" 
GOSUB 1700:PRINT* grace aux touches-fleches ." 
REN Debut 
PRINT: PRINT 
A$="C" ’Code couleur = Jaune 
PRINT'DEBUT :"; 
GOSUB 1700:PRINT'Pour commencer , appuyez sur" 
GOSUB 1700:PRINT" la touche *RETURN’" 
GET À$ ‘Attente d’une action clavier 
RETURN 
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1420 : REM SARRANSASATENNNENSARNNNANNANNANTERTNEAIEE 
1500 : REM Module d'affichage grille-caractere et cossentaires 
1510 : 


1520 : CLS ‘Nettoyage d'ecran 

1530 : FOR 1=0 T0 5 

1540 : FOR J=0 TO 7 

1950 : PLOT 14+1,8#],"." 

1560 : NEXT J 

1570 : NEXT ! 

1580 : PLOT 0,22, "Quand vous aurez dessine le caractere," 
1585 : PLOT 0,23,"tappez RETURN .* 

1590 : PRINT CHR$(27);"L';CHRS (27); "A DEFINITION DE LA LETTRE 
"2 RETURN 

1595 : REN AHRNRSNSNNNANSNNENNNRNTANATARTANNANTARIERS 
1600 : REM Module d’initialisation curseur 

1610 : 

1820 : PLOT 14,8,"." 

1630 : DROITE=0:BAS=0 

1640 : RETURN 

1650 : REM DHRTANNNNRAISTANSSRANESASTTNTNNANAAAAANTTRT 
1700 : REM Module de couleur de ligne 

1710 : PRINT CHR$(27);"H"3;CHRS(27);A$; 

1720 : RETURN 

1730 : REM SHRHNSNNSNRANRNNTNANERT ANNEE ANATEATTSE 
2000 : REM Module de traitesent 


: GET A$ 

2030 : IF ASC(A$)=8 THEN GOSUB 2200 
2040 : IF ASC(A$)=9 THEN GOSUB 2250 
IF ASC(A$)=10 THEN GOSUB 2300 
: IF ASC(A$)=11 THEN GOSUB 2350 
2070 : IF A$="P" THEN GOSUB 2400 

+ IF A$="V* THEN GOSUB 2450 

: IF ASC(A$)=13 THEN RETURN 
2100 : 60T0 2000 


es 
ss 
a 
ss 


CA 
2 
a 
2 


= 
S 
œ 
S 


mr 
ss S 
3 © 
ss 





BOITE A OUTILS POUR ORIC 1 ET ATMOS / 125 


CIS CELLES EE ER EE EEE ET ET EE EEE CEE ETE EEE EEE CE TT) 
REN Deplacesent vers la gauche 


DROITE=DROITE-1 
IF DROITE=-! THEN DROITE=0 
RETURN 

: REN Deplacesent vers la gauche 


: DROITE=DROITE+! 

: IF DROITE=6 THEN DROITEZ=S 

: RETURN 

: REM Deplacement vers le bas 


: BAS=BAS+! 

: IF BAS=6 THEN BAS=7 

: RETURN 

: REN Deplaceæent vers le haut 


: BAS=BAS-1 

5 IF BAG=-{ THEN BAS=0 
: RETURN 

: REN Caractere plein 


: BAS, DROITE) =1 

3 PLOT 144#DROITE,B+BAS, 4" 
: RETURN 

: REM Caractere vide 


: TCBAS,DROITE)=0 

: PLOT 14+DROITE,8+BAS,"." 

: RETURN 

1 REN HASDNRNNTENNRNNTRNRNTNTNNNNENENNANTITE 
: REM Modification du caractere 


2 PRINT: PRINT: PRINT 
: INPUT'Caractere à aodifier";B$ 
: B=ASC(B$) : A=0 
: FOR 1=0 T0 7 
FOR J=0 T0 5 
IF T(1,J)=1 THEN A=A+(2*15-J)) 
NEXT J 
POKE 46080+(B48)+1,A : A=0 
: NEXT 1 
: RETURN 
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Comptabilité oric 1 et atmos 


Les 20 programmes proposés dans ce livre ont été développés sur 
ORIC-1. Ils sont compatibles ORIC ATMOS moyennant les modifications 


suivantes : 


Attaque aérienne 
Casse-pipes 


Le piéton courageux 
Réflexe 
Bataille navale 


Jack pot 


Jeu du 21 

Jeu des allumettes 

Les piranhas attaquent 
Mémoire à court terme 
Mastermind 

Figures de Moivre 
Biorythmes 

La vie 

Les unités anglo-saxonnes 
ORIC-piano 

ORIC joue 

Le chien 

Modification des caractères 


Menu* 

Menu* 

2240 IF B<>3 THEN B$="U":NP=NP+1 
ELSE B#-"V" 

2370 PRINT ‘Pressez une touche pour 
commencer! 

Menu* 

Menu* 

2830 PLOT 2*A+9,B+9,'0' 

2930 PLOT 2*A+9,B+9,'X' 

Lignes 2240,2460,2560,2660 : supprimer 
un blanc dans les premières côtes 
Rien à modifier 

Rien à modifier 

Menu* 

Menu* 

Menu* 

Rien à modifier 

Rien à modifier 

Menu* 

Menu* 

Rien à modifier 

Rien à modifier 

Rien à modifier 

Rien à modifier 


Menu* : certaines lignes du menu de présentation devront comporter 
un nombre de "blancs" moins important ou des mots plus 


courts ... 
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